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The  data  base  at  the  Air  Force  Institute  of  Technology 
( AFIT )  signal  processing  laboratory  has  not  been  able  to  keep 
pace  with  recent  hardware  expansion.  An  array  processor  has 
been  installed  that  has  only  seen  limited  application.  Its 
computational  speed  could  greatly  increase  the  speed  of  many 
algorithms  used  in  the  laboratory.  The  digitizer  that  has 
been  added  can  be  controlled  by  software  to  a  larger  degree 
and  can  operate  on  larger  data  files  than  the  current  model. 
However,  it  has  never  been  interfaced  with  other  laboratory 
equipment.  The  time  required  to  become  familiar  with  these 
devices  is  prohibitive  to  thesis  students  and  other  personnel 
who  would  benefit  most  from  their  use. 

This  effort  resulted  from  a  suggestion  by  Major  Larry 
Kizer,  Assistant  Professor  of  Electrical  Engineering  at  AFIT. 
Major  Kizer  teaches  the  school's  digital  signal  processing 
course  and  is  primarily  responsible  for  the  laboratory's  growth, 
lie  felt  it  v/ould  be  useful  to  have  a  software  package  that 
integrated  those  hardware  additions  into  the  system.  Also, 
this  should  be  done  in  such  a  way  as  to  allow  easy  operation. 
With  this  initial  objective,  the  final  result  was  a  software 
package  capable  of  performing  sophisticated  signal  processing 
functions,  yet  very  simple  to  operate. 

Gordon  R.  Allen 
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Abstract 

A  signal  processing  software  package  was  generated  for 
a  Data  General  Eclipse  S/250  minicomputer.  The  model  4331 
A/D/A  converter  was  utilized  to  perform  general  purpose  A/D/A 
operations  and  to  collect,  edit,  and  play  back  speech  data 
files.  The  model  130  array  processor  was  used  to  perform 
high-speed  convolution  and  Fourier  Transform  related  opera¬ 
tions.  The  Parks-McClellan  algorithm  was  implemented  to 
allow  design  of  linear  phase,  finite  impulse  response  filters. 
Self-explanatory  interactive  programs  for  data  collection  and 
filter  design,  together  with  single  line  commands  for  signal 
processing  functions,  make  this  a  simple  to  operate,  versatile 
package  for  digital  signal  processing. 
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I  Introduction 

Background 

With  t ho  introduction  of  the  Fast  Fourier  Transform 
(FFT)  in  1004,  digital  signal  processing  took  on  new  signif¬ 
icance.  The  Fast  Fourier  Transform  provided  an  efficient 
method  of  calculating  the  Discrete  Fourier  Transform  ( DFT ) 
and  made  it  a  much  more  feasible  tool  for  use  in  signal  anal¬ 
ysis.  Recent  advancements  in  digital  hardware  and  computer 
architecture  have  made  digital  signal  processing  techniques 
even  more  practical. 

Today,  digital  signal  processing  techniques  have  seen 
ap|)l  i  on  I.  i  on  in  many  fields  of  study.  Here  at  the  Mr  Force 
Institute  o]  Technology  (AFIT)  signal  processing  laboratory, 
they  are  used  to  investigate  pattern  recognition  problems  in 
the  speech  and  video  areas.  The  laboratory  is  used  to  support 
research  by  AFIT  personnel  and  other  Air  Force  organizations . 

Recent,  hardware  improvements  have.'  been  made  to  the  lab- 
or.it  ory.  An  array  processor  and  an  additional  digitizer  have? 
been  installed.  A  group  of  filter  design  programs  has  also 
been  procured.  However,  software?  has  not  been  generated  to 
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allow  these  devices  and  programs  to  be  operated  easily.  Re¬ 
search  ef forts  could  be  done  in  a  more  timely  manner  if  this 
software  was  available. 

Summary  of  the  Current  System 

The  AF IT  signal  processing  laboratory  contains  two  Data 
General  minicomputers,  the  Eclipse  S/250  and  the  Nova  2/10. 

The  Nova  computer  is  interfaced  with  a  digitizer  for  collect¬ 
ing  data  samples  from  an  analog  signal  (A/D  operations)  and 
to  output,  data  samples  (D/A  operations).  The  Eclipse  com¬ 
puter,  however,  is  more  computationally  powerful  and  has  been 
equipped  with  its  own  digitizer  and  an  array  processor.  The 
operating  options  on  the  new  digitizer  are  software  control¬ 
lable  rind  proper  software  would  allow  this  device  to  perform 
a  variety  of  digitizing  operations.  Also,  due  to  the  extended 
memory  feature  of  the  Eclipse,  the  Eclipse  A/D/A  device  has 
the  potential  of  operating  on  larger  data  files  than  the  Nova 
A/ D/A  device.  The  array  processor  could  be  used  to  greatly 
speed  up  many  algorithms  that  currently  require  hours  to  run 
on  tin-  system.  However,  the  Eclipse  A/D/A  device  has  not 
been  operated  or  even  interfaced  witli  other  laboratory  equip¬ 
ment  and  t  tie  array  processor  has  only  seen  limited  applica- 
•  ion  due  to  the  time  required  to  become  familiar  with  these 
devices. 

There  is  not  any  software  currently  available  in  the 
laboratory  to  allow  personnel  to  perform  convolution  or  PET 
operations  without  generating  software.  To  perform  signal 
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processing  functions,  the  Interactive  Laboratory  System  (ILS) 
and  Data  General  (DC)  software  packages  are  available.  These 
packages  provide  subroutines  that  the  user  can  apply  in  pro¬ 
grams  to  perform  signal  processing  operations.  However, 
learning  to  use  these  packages  is  a  time-consuming  obstacle 
and  it  should  not  be  necessary  for  individuals  who  only  want 
to  perform  basic  signal  processing  operations. 

A  group  of  machine-portable  programs  for  digital  signal 
processing  has  been  procured  for  the  laboratory.  The  source 
code  for  those  programs  cannot  be  compiled  and  loaded  in  their 
present,  form.  The  mainline  and  subroutines  of  each  program 
need  to  have  machine-dependent  variables  defined  and  be  com¬ 
piled  separately  before  the  program  will  operate  on  the  Eclipse. 

<)b  jecl:  Ives 

The  overall  objective  of  this  effort  is  to  create  a 
user-oriented  signal  processing  software  package  for  the 
AFi  i'  signal  processing  laboratory.  The  package  will  make  use 
of  system  features  that  reduce  user  inputs  and  will  implement 
t  he  recent  hardware  improvements.  With  only  basic:  knowledge 
of  system  operation,  personnel  will  be  able  to  do  meaningful 
signal  processing  operations. 

To  enhance?  the  laboratory’s  A/D/A  capability,  software? 
will  be-  generated  that  operates  the  Eclipse  A/D/A  device  and 
makes  use  of  the  Eclipse's  extended  memory  feature.  The  var¬ 
ious  ways  to  use  this  device  will  be  studied.  Those  most  use¬ 
ful  to  signal  processing  applications  will  be  organized  into 
a  user's  manual  that  will  explain  how  to  write  software  to 
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operate  the  device.  Two  interactive  programs  will  be  gener¬ 
ated.  One  program  will  be  designed  specifically  to  handle 
speech  data  operations,  while  one  will  be  designed  to  flexibly 
operate  all  of  the  device  software  controllable  features  to 
handle  peculiar  digitizing  operations. 

To  allow  personnel  to  directly  perform  basic  signal 
processing  operations  with  the  array  processor,  general  pur¬ 
pose  signal  processing  programs  will  be  generated.  These 
programs  will  allow  the  user  to  operate  on  entire  data  files 
by  typing  a  single  line  command.  They  will  also  serve  as 
examples  of  how  to  use  the  array  processor  to  perform  the 
basic  operations  that  are  done  in  related  ILS  and  DG  sub¬ 
rout  i  nos . 

To  set  up  a  computer-aided  filter  design  capability  in 
the  laboratory,  the  Parks-McClellan  algorithm  for  designing 
linear  phase  finite  impulse  response  (FIR)  filters  will  be 
implemented.  This  is  one  of  the  programs  contained  in  the 
group  of  machine-portable  programs.  This  program  can  be  used 
to  design  a  wide  range  of  lowpass,  highpass,  and  multiband 
tillers.  it.  n  1  so  can  be  used  to  design  differentiators  and 
Hilbert.  I  ransl  ormors.  In  addition  to  covering  a  wide  range 
of  i  i  1 1  er  a  pp  1  i  i  -a  t.  i  oris  ,  this  effort  will  uncover  any  problems 
that,  might  exist  in  implementing  other  programs  in  this  group 
on  t ho  Re  1  ipse.  Additional  software  will  be  generated  to 
nllov;  this  program  to  b(  >  more  se  1  L -exp  l ,  I  na  t  o  r  y  amt  eusily 
op<  g 1 1  rd. 
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II  A/D/A  Operations 


This  chapter  describes  the  Eclipse  A/D/A  device.  The 
capabilities  of  the  device  and  the  operating  methods  of  most 
interest  for  signal  processing  applications  will  be  discussed. 
The  two  programs  will  be  presented  that  use  this  device  to 
operate  on  speech  data  and  to  perform  general  purpose  digi¬ 
tizing  operations. 

The  Eclipse  A/D/A  Device 

The  Eclipse  computer  in  the  AFIT  signal  processing 
laboratory  is  equipped  with  a  model  4331  analog  data  sub¬ 
system  (Kef  1;  Ref  2)  and  the  Sensory  Access  Manager  (SAM) 
software  package  (Ref  3),  The  SAM  software  package  is  a 
Data  General  package  that  aids  in  building  I/O  programs  for 
Data  General  computers  equipped  with  A/D/A  devices.  The 
software  package  contains  libraries  that  can  be  used  to 
manipulate  the  device. 

Tin.*  model  4331  subsystem  is  a  general  purpose  A/D/A 
device  with  a  resolution  of  12  bits.  The  A/D  section  has  an 
A/b  converter  with  two  multiplexors  that  allow  10  channels  of 
differential  input.  Data  samples  can  be  collected  from  a 
single  channel  or  a  sequential  list  of  channels.  The  D/A 
section  contains  two  independent  D/A  converters.  The  A/D 
and  D/A  sections  have  both  been  set  to  operate  at  the  +  5v 
range  and  to  handle  conversion  values  in  a  two's  complement 
format.  Each  12-bit  conversion  value  is  stored  in  one  lb-bit 
machine  word.  The  remaining  least  significant  four  bits  of 


a  word  aro  not  usod .  A  more  detailed  description  of  this 
device  and  how  to  write  software  to  operate  it,  is  presented 
in  the  Eclipse  A/D/A  Device  User's  Manual  which  is  attached 
as  Appendix  A. 

One  problem  with  the  device  was  not  resolved.  A  single 
conversion  operation,  according  to  the  specification,  should 
be  able  to  handle  up  to  16,384  samples  (Ref  3:5-6).  However, 
the  device  gave  an  error  for  any  conversion  operation  above 
lb, 073  samples.  After  an  extensive  search  through  the  man¬ 
uals,  a  user  error  could  not  be  found  to  explain  this.  The 
error  code  returned,  2194,  indicated  an  attempt  to  move  con¬ 
version  data  outside  the  area  set  up  to  hold  data.  According 
to  the  SAM  User's  Manual,  this  was  an  error  for  assembly  lan¬ 
guage'  operation  only  and  should  not  occur  for  Fortran  opera¬ 
tion.  This  error  occurred,  however,  for  both  operations.  It 
was  concluded  that  this  was  a  problem  with  the  device.  An 
option  was  included  in  the  general  purpose  program  to  be  dis¬ 
cussed  later,  that  allows  the  maximum  error-free  conversion 
count  tor  any  specified  conversion  operation  to  be  quickly 
found.  Using  this  option,  it  was  noted  that  this  problem 
existed  regardless  of  the  channel  or  clock  source  used.  The 
only  clock  source  not  used  with  this  option  was  the  pulse 
generated  clock,  which  is  more  difficult  to  sot  up  and  would 
not  typically  be  used  for  signal  processing  applications. 

This  option  could  bo  used  to  verify  correct  operation  when 
the  device  is  repaired. 
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This  suction  describes  programming  techniques  that  can 
be  used  to  operate  the  Eclipse  A/D/A  device.  An  executable 
program  on  the  Eclipse  or  Nova  in  the  AFIT  signal  processing 
laboratory  must  be  32KW  or  less.  This  includes  the  source 
code,  overhead  code,  and  variable  space  (Ref  4:1-4).  Since 
operating  on  most  data  files  usually  requires  a  large  amount 
of  variable  space,  the  method  used  to  implement  the  device 
in  a  program  is  an  important  consideration  due  to  memory 
constraints . 

The  variable  space  to  hold  the  conversion  values  of  a 
single  conversion  operation  must  be  declared  in  the  main  pro¬ 
gram.  This  would  require  16KW  of  integer  array  space  to  hold 
the  maximum  specification  number  of  16,384  samples  for  a  sin¬ 
gle  conversion  operation.  The  memory  problem  is  compounded 
if  it  is  desirable  to  do  both,  A/D  and  D/A  operations,  in 
the*  same  program.  The  same  data  arrays  cannot  be  used  to 
both  input  and  output  data,  since  they  must  appear  in  differ¬ 
ent  labeled  common  blocks  for  an  A/D  or  D/A  operation.  The 
additional  SAM  library  overhead  further  reduces  the  space 
left  in  the  main  program.  Although  32KW  certainly  provides 
enough  space  to  allow  a  program  to  handle  cither  an  A/D  or 
D/A  conversion  operation  with  16,384  samples,  there  may  not 
be  enough  space  left  for  the  rest  of  the  user's  source  code. 
To  remedy  such  situations,  Data  General  Fortran  V  provides 
two  methods,  overlays  (Ref  4:4-1)  and  swaps  (Ref  4:4-4),  to 
increase  the  source;  code  of  the  main  program. 


Basically, 
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program  swaps  operate  by  overwriting  main  memory  with  a  new 
program,  while  overlays  overwrite  only  a  section  of  main  mem¬ 
ory  with  new  code.  Using  one  of  these  methods,  a  secondary 
program  can  be  used  by  the  main  program  to  perform  A/D/A 
operations.  Since  the  secondary  program  is  usually  quite 
large  due  to  large  data  arrays,  a  program  swap  will  generally 
be  the  best  method  to  use.  If  this  is  the  case,  parameters 
specifying  the  A/D/A  operation  can  only  be  passed  to  the  sec¬ 
ondary  program  by  writing  them  to  a  disk  file.  The  secondary 
program  must  then  read  these  parameters  from  the  disk  file. 
This  is  the  method  used  by  the  programs  in  the  next  two  sec¬ 
tions  which  use  separate,  secondary  programs  to  handle  A/D 
and  D/A  operations. 

Sampling  at  BKHz,  the  single  conversion  operation  maxi¬ 
mum  of  lt>,  384  samples  would  provide  only  2.05  sec  of  speech 
data.  It  is  desirable  to  work  with  longer  speech  files. 
Fortunately,  the  Eclipse  computer  has  a  feature  called  ex¬ 
tended  memory  mapping  (Hof  4:4-11),  which  allows  large  amounts 
ol  data  to  be  moved  quickly. 

Extended  memory  mapping  can  be  visualized  as  follows. 

A  window  is  sot  up  in  the  main  program  that  can  be  made  to 
slide  along  additional  memory  called  extended  memory.  Data 
can  be  routed  to  and  from  extended  memory  through  this  window. 
Actually,  data  is  not  physically  moved,  address  registers  are 
simply  changed.  The  Eclipse  computer  has  up  to  42KW  of  addi¬ 
tional  memory  tli.it  can  be  accessed  through  remapping. 

The  extended  memory  setup  that  is  used  in  the  speech 
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program  of  the  next  section  is  shown  in  Fig  2-1.  In  this 
setup,  conversion  operations  are  performed  in  10,240-sample 
sections.  The  results  of  the  first  four  conversion  operations 
are  routed  through  the  window  into  extended  memory.  Using 
the  data  buffer  to  hold  the  fifth  conversion  operation  re¬ 
sults,  up  to  51,200  samples  can  be  collected.  Sampling  at 
bKllz,  this  provides  6.40  sec  of  speech  data. 


Fig  2-1  An  extended  memory  setup  for 

repeated  conversion  operations 


of  course,  each  of  the  remap  operations  causes  a  delay 
where  sampling  points  may  be  lost.  A  test  was  devised  to 
give  an  approximate  indication  of  the  number  of  points  that 
may  be  lust  in  the  above  setup.  For  the  tost,  a  triangle  wave 
was  sampled  using  the  setup  shown  in  Fig  2-1.  The  break  in 
the  linearity  of  the  wave  during  the  remap  operation  was 
noted  to  determine  the  number  of  points  lost.  The  Eclipse 
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computer  has  two  user  terminals,  referred  to  as  foreground 
and  background,  that  share  the  computer's  single  CPU.  To  note 
the  affect  of  CPU  activity  on  the  time  required  to  perform  a 
remap  operation,  the  test  was  conducted  on  the  background  for 
three  conditions.  First,  the  foreground  was  made  inactive*, 
allowing  all  of  the  CPU's  attention  to  be  given  to  the  A/D/A 
program.  For  the  other  two  test  runs,  the  foreground  was 
allowed  to  be  active.  On  the  second  test  run  the  foreground 
set  idle  and  on  the  third  test  run  it  was  used  to  compile  a 
program.  The  test  setup  and  description  is  given  as  Appendix 
b.  The  affect  of  the  remap  operation  on  the  sampled  triangle 
wave  is  shov/n  in  Figs  2-2,  2-3,  and  2-4.  For  these  Figs,  a 


Fig  2-2  extended  memory  data  collection  results 
while  foreground  was  inactive 

'*  Inactive  implies  that  the  foreground  was  shut  down  with 
the  CTKL-F  command. 
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Extended  memory  data  collection  results 
while  foreground  was  compiling 
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set  of  sample  points  were  chosen  that  conveniently  illustrated 
the  break  in  linearity. 

The  number  of  points  lost  during  the  remap  operation 
in  each  of  the  plots  was  calculated  as  follows.  The  change 
in  voltage  between  all  data  points,  except  where  the  slope 
changes  and  the  remap  transition  occurs,  was  computed  and 
averaged.  The  following  formula  was  used  to  compute  the 
points  lost, 


Pts 


Mag 

Incr 


1 


where  Pts  =  points  lost 

Mag  =  voltage  magnitude  of  remap  transition 
Incr  =  average  voltage  change  between  sample 
points 


A  program  was  used  to  do  the  above  calculations  and  the  re¬ 
sults  for  the  three  plots  are  shown  in  Table  2.1. 


Pi lename 

DATA  1 

DATA  2 

DATA  3 

bisk  blocks 

00-01 

c 

1 

c 

i 

i — 

Pts 

06 

221 

224 

Mag 

1 . b 005 

4.0601 

4 . 1162 

Incr 

.  U1  7‘1 

.0103 

.0183 

Table  2.1  Kemap  operation  test  results 


The  results  indicate  that  not  the  level  of  activity 
on  the  opposite  terminal,  but  whether  it  is  active  or  in¬ 
active,  is  the  prime  determinant  of  the  points  that  will  be 
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lost.  The  test  data  was  collected  at  a  21KHz  sampling  rate, 
however,  speech  is  usually  sampled  at  only  8KHz.  Since  the 
sampling  rate  and  the  number  of  points  lost  is  known  for  each 
condition  in  the  test  runs,  the  time  required  for  the  remap 
operation  and  the  number  of  points  lost  for  sampling  at  8KHz 
can  be  easily  computed.  These  results  are  shown  in  Table  2.2. 


Condition  1 

Condition  2 

Condition  3 

Re  map- 
interval 

4 . 57msec 

10. 5msec 

10. 7msec 

Points  Lost 
fcj>  BKHz 

37 

84 

85 

Table  2.2  Remap  interval  and  points  lost  at 
8KHz  Sampling 


Losing  the  number  of  points  on  the  order  shown  in  Table 
2.2  could  add  another  dimension  of  uncertainty  in  pattern  rec¬ 
ognition  programs.  If  the  remap  occurred  during  the  crucial 
utterance  ol'  a  short  word,  its  signature  could  be  seriously 
eroded.  Care  must  be  taken  using  this  setup  to  collect  data, 
not  to  have  utterances  during  the  remap  interval.  The  primary 
use  of  such  a  setup  should  be  to  play  back  edited  speech  files 
that  have  been  pieced  together  such  that  no  utterance  occurs 
during  the  remap  interval.  However,  even  if  this  does  occur 
during  playback,  the  only  affect  is  the  annoying  silent  gap 
of  the  remap  interval. 

The  following  two  sections  describe  two  programs  that 
were  generated  using  this  device.  The  source  code  for  these 
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programs  and  a  data  format  conversion  program  is  given  in 
Appendix  C.  The  source  code  for  the  user  subroutines  named 
in  these  programs  is  included  in  Appendix  F. 

A  Program  for  Speech  Application 

An  interactive  program  for  working  with  speech  data  was 
generated.  This  program  allows  the  user  to  collect,  edit, 
piece  together,  and  play  back  speech  files.  The  program  can 
be  operated  in  either  short  mode,  to  work  with  15,872  samples, 
or  in  long  mode,  to  work  with  51,200  samples.  During  execu¬ 
tion,  the  program  maintains  two  buffers  on  disk  file,  the 
data  buffer  and  edit  buffer.  The  data  buffer  is  where  con¬ 
version  values  must  originally  be  placed,  either  by  an  A/D 
operation  or  reading  from  a  disk  file.  The  data  buffet  can 
then  be  placed  in  the  edit  buffer  where  sections  of  data  can 
bo  played  back  and  deleted.  Editing  operations  performed  on 
the  edit  buffer  do  not  affect  the  data  buffer. 

The  program  is  actually  a  collection  of  six  programs 
where  the  secondary  programs  are  called  upon  by  swapping. 

The  central  program,  SPEECH,  performs  operations  on  the  data 
buffer  and  culls  up  the  editing  mode.  A  copy  of  its  main 
menu  options  is  shown  in  Fig  2-5.  The  second  program,  EDITOR, 
performs  editing  operations  on  the  edit  buffer  and  can  return 
to  the  central  program.  It  provides  two  types  of  histograms, 
by  voltage  and  by  block,  on  specified  blocks  of  data.  A 
copy  of  the  display  shown  for  the  same  blocks  of  a  speech  file 
is  given  tor  each  histogram  in  Figs  2-6  and  2-7.  Two  of  the 
programs,  SMAl.bJN  and  SMALLOUT,  are  used  by  the  central  pro- 
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Please  select  which  operation  will  be  performed! 
1:  A/D  conversion  into  data  buffer 
2:  D/A  conversion  out  of  data  buffer 
3:  editing 

4:  read  from  file  to  data  buffer 
5:  write  data  buffer  to  file 
6:  copy  data  buffer  to  edit  buffer 
7 i  exit 
selections 


fig  2-5  Program  SPEECH  main  menu  options 


Voltage  Histogram 

blocKs:  1-  16  samples:  4096.  total  clips 


max  vo l t age : 
nun  vo  1  tage  :  - 

1 , 5796 (  10352) 

2, 2705 ( - 14SB0 ) 

Vo  1 tage 

Pos 1 1  l  ve 

Nega  t  i  ve 

Total 
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Samp  1 es 

Samples 
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4.5-4. 0 

0. 

0. 
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4. 0-3.5 

0. 

0. 
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3. 5-3. 5 

0. 

0. 

0. 

3. 0-2. 5 

0. 

Q. 

0. 

2.5-2. 0 

0. 

1  . 

1 . 

2. 0-1. 5 

2. 

9. 

1 1 . 

1. 5-1.0 

14. 

12. 

26. 

1.0-  .5 

79. 

57. 

136. 

.5-  .0 

1211. 

2806. 

4017. 

P  1  ease  select 

which  operation 

will  be 

performed, 

1:  D/A  conversion  of  histogram  b locks 
2:  delete  histogram  blocks  from  edit  buffer 
3:  return  to  the  editing  menu 
selection: 


Fig  2-0  Program  EDITOR  voltage  histogram  display 


Block  Histogram 

blocks:  i-  16  samples:  4086.  total  clips 

max  voltage:  1.57961  10352) 
nun  voltage:  -2.27051-14880) 


B  1  QCk 

Total 

Max 

Number 

Clips 

Magn l tude 

1 

0. 

1 . 1890 

O 

A. 

0. 

.5384 

3 

0. 

1.5796 

4 

0. 

1.4429 

5-  6 

0. 

1.8896 

7-  a 

0. 

2.2705 

9-  10 

0, 

.8398 

1 1  -  12 

0. 

.  1733 

13-  14 

0. 

,  1489 

15-  16 

0. 

.0732 

Please  select  which  operation  will  be  performed, 
1:  D/A  conversion  of  histogram  blocks 
2:  delete  histogram  blocks  from  edit  buffer 
3:  return  to  the  editing  menu 
selection: 


Ly  2-7  Program  EDITOR  block  histogram  display 
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gram  to  handle  short  mode  A/D  operations.  The  last  two  pro¬ 
grams,  Hid IN  and  BIGOUT,  are  used  by  the  central  and  editing 
programs  to  handle  long  mode  D/A  operations.  Each  of  the  four 
A/D/A  programs  contains  an  option  to  repeat  the  conversion 
operation  while  within  the  program.  This  allows  the  conver¬ 
sion  operation  to  be  repeated  without  the  annoying  wait  that 
is  required  to  swap  in  an  A/D/A  program. 

The  program  that  operates  the  Nova  A/D/A  device  for 
work  with  speech  data,  AUDIOHIST,  scans  the  chosen  data  file 
blocks  lor  histogram  parameters  each  time  a  histogram  is  re¬ 
quested.  This  causes  an  annoying  delay  between  histograms. 
During  editing,  histograms  may  be  requested  several  times  to 
i. sol.il.c->  a  single  block  of  data  that  will  be  deleted.  To  allow 
the  histograms  to  be  presented  quickly,  parameter  arrays  were 
used  in  program  EDITOR.  The  first  time  a  histogram  is  re¬ 
quested,  the  histogram  parameters  for  the  entire  edit  buffer 
are  collected  and  stored  in  parameter  arrays.  As  blocks  of 
data  are  deleted,  the  parameter  arrays  are  updated.  Sub¬ 
sequent  histograms  arc?  displayed  without  any  noticeable  delay. 

A  l’r<  n|i’a in  ler  t  :■  Miera  1  Purpose?  Applicat  ion 

An  interact,  ive  program  for  performing  general  purpose 
digit  icing  operations  was  generated.  Due  to  the  general 
induce  et  its  design,  the  program  is  rather  cumbersome  to 
opei.de.  It  is  intended  to  be  used  to  test  A/D/A  system  set¬ 
ups  . 1 1 id  to  handle  digitizing  operations  not  routinely  per- 
1 urmed.  It  could  also  be  useful  when  t  i me  does  not  permit 
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genurating  additional  software  for  a  digitizing  operation. 

As  with  the  speech  program,  this  program  is  actually  a 
collection  of  programs  where  the  secondary  programs  are  called 
upon  by  swapping.  The  central  program,  DIGITIZE,  is  very 
short  and  simply  directs  the  user  to  choose  either  A/D  or 
D/A  mode.  The  A/D  program,  INDIGI,  and  the  D/A  program, 

OlJ'l'l  >  3 1 1 1 ,  maintain  separate  16KW  data  buffers.  In  addition 
to  performing  conversion  operations,  each  program  allows  the 
user  to  vita/,  print,  or  write  to  disk  file  specified  sections 
of  the  data  buffer.  The  D/A  data  buffer  can  also  be  filled 
by  re.iding  from  a  disk  file.  Since  the  data  buffers  are 
independent,  the  only  way  the  contents  of  one  can  be  placed 
in  the  other  is  through  an  intermediate  disk  file. 

The  i)/A  program  allows  the  data  buffer  to  be  demulti¬ 
plexed.  This  option  can  be  used  to  recover  data  that  was 
col looted  on  a  single  channel  when  the  channel  scan  feature 
v<as  used  in  the  A/D  operation.  The  starting  data  sample  and 
t  I  s'  number  of  samples  to  bo  skipped  between  subsequent  saved 
sample:;  are  specified  by  the  user.  The  channel  scan  feature 
is  useiul  for  collecting  data  where  the  time  relationship 
between  signals  is  important.  Shown  in  Fig  2-M  is  an  oxample 
of  such  ,,n  application.  I  lore  the  user  had  recorded  analog 
data  simultaneously  on  various  channels  01  a  mult i-channel 
tape  recorder  -d  a  location  outside  the  laboratory.  One  of 
idle  channels  contained  a  timing  signal  l  1st  was  modified  and 
used  as  an  external  clock  source.  Using  program  DIGITIZE , 
the  analog  data  on  two  of  the  channels  w.is  first  digitized 
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using  the  channel  scan  feature  sot  to  alternate  betveen  two 
channels.  Then  demultiplexing  operations  were  done  on  the 
sampled  data  to  create  the  data  file  for  each  signal.  Pro¬ 
gram  ONVKT,  which  is  included  in  Appendix  C,  was  used  to 
convert  the  data  files  into  real  number  format.  Program 
PLOT ,  which  is  included  in  Appendix  F,  was  used  to  obtain 
the  plot  shown.  The  figure  shows  the  plot  of  an  EEG  signal 
of  a  dog's  brain  and  a  signal  used  to  control  the  frequency 
of  a  strobe  light  flashed  into  the  dog's  eyes.  The  separate 
data  files  were  necessary  to  view  the  signals  and  permit  data 
processing . 


Fig  2-b  An  example  of  recovering  multiplexed 
data  with  program  DIGITIZE 


This  chapter  describes  the  Eclipse  array  processor. 

The  two  methods  of  utilizing  array  processor  memory  will  be 
discussed.  Several  general  purpose  signal  processing  pro¬ 
grams  that  make  use  of  this  device  will  be  presented.  The 
source  code  for  these  programs  and  related  user  subroutines 
is  included  in  Appendices  D  and  F,  respectively.  Each  pro¬ 
gram  is  activated  by  typing  a  single  line  command  that  identi¬ 
fies  the*  processing  function  and  the  data  files  to  be  operated 
on . 


The  Eel  ipso  Array  Processor 

The  Eclipse  computer  in  the  AFIT  signal  processing 
laboratory  is  equipped  with  a  model  130  array  processor 
(Kef  3).  The  array  processor  is  designed  to  provide  high¬ 
speed  matrix  computations.  It  contains  independent  multiply 
and  ndd/subtract  units  that  can  operate  simultaneously.  Each 
unit,  features  pipeline  design,  which  allows  several  opera¬ 
tions  to  overlap  one  another  during  the  same  time  period. 

There  are  a  variety  of  matrix  operations  that  can  be 
perform* *d.  Each  matrix  operation  is  called  as  a  subroutine 
with  a  single  argument  that  references  a  control  block.  The 
control  block  is  set  up  prior  to  calling  the  matrix  operation 
by  using  one  or  more  additional  library  subroutines.  It 
specifies  the  operation's  parameters,  such  as  the  location 


of  input  and  output  data  in  arr.ty  processor  memory. 
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Array  Processor  Memory  Management 

The  array  processor  contains  4KW  of  memory  which  is 
basically  used  as  a  scratchpad  for  matrix  operations.  Input 
data  is  loaded  into  this  area  and  output  data  is  retrieved 
from  it.  Data  can  be  transferred  to  and  from  array  processor 
memory  in  two  ways,  directly  (Ref  5:2-33)  and/or  by  mapping 
(Ref  5:2-10). 

Moving  data  directly  requires  a  separate  subroutine 
call  to  transfer  data.  It  allows  data  of  any  length  or  loca¬ 
tion  in  main  memory  to  be  moved  to  any  location  in  array 
processor  memory  and  vice-versa.  The  major  drawback  with 
this  method  is  the  manual  loading  or  unloading  of  data  re¬ 
quired  for  each  matrix  operation. 

With  memory  mapping,  data  is  transferred  automatically. 
Any  contiguous  lKW-multiple  of  array  processor  memory  can 
be  mapped  into  main  memory.  The  mapping  operation  that  does 
this  sets  up  a  window  in  main  memory.  The  data  arrays  identi¬ 
fied  in  this  window  can  be  treated  as  if  they  were  located 
in  array  processor  memory.  Loading  data  into  these  arrays 
places  t  he  data  directly  into  array  processor  memory.  If  the 
array  processor  window  is  remapped,  then  the  data  in  the  pre¬ 
vious  window  is  destroyed.  lor  this  reason,  as  is  the  case 
with  extended  memory  mapping,  the  mapping  operation  is  usually 
only  called  once  in  the  program.  Data  can  be  moved  to  or  from 
the  window  by  setting  up  a  loop  that  exchanges  values  with 
another  array  outside  the  window  or  by  performing  disk  read/ 
write  operations  on  the  window  data  arrays.  Of  the  programs 


to  bo  presented,  the  first  performs  data  transfers  directly 
and  the  others  perform  data  transfers  by  mapping. 

A  Program  f o r  Time -Domain  Processing 

To  allow  signal  processing  in  the  time-domain,  a  convo¬ 
lution  program,  CONV,  was  generated  that  makes  use  of  the 
array  processor.  The  program  convolves  an  input  file  contain¬ 
ing  up  to  32,787  disk  blocks  with  a  filter  file  containing  up 
to  [jl  2  points.  Since  the  filter  file  must  remain  in  array 
processor  memory  throughout  the  operation,  a  filter  file  of 
512  points  would  consume  one-quarter  of  array  processor  mem¬ 
ory  ( dKW  =  20*18  real  points).  For  this  reason,  a  512-point 
maximum  was  chosen  as  a  balance  between  memory  used  to  hold 
the  filter  and  a  reasonably  largo  impulse  response.  The 
coefficients  of  many  infinite  impulse  response  filters  are 
usually  small  beyond  this  length. 

Tin'  algorithm  operates  by  breaking  the  input  data  into 
sections  and  using  subroutine  VCONK'Z  to  convolve  each  section 
with  the  filter  response.  The  overlap-save  method  is  used 
to  piece  together  the  individual  matrix  operation  outputs  to 
form  a  linear  convolution  (Ref  0:113-115).  The  over lap-save 
mol  hod  is  illustrated  in  Fig  3-1.  The  input  data  is  broken 
up  into  M-point  sections  and  convolved  with  an  N-point  impulse 
response.  The  f  irst  N-l  points  of  the  first  section  are  zero 
f  i  .1  led  and  t  he  i  irst  N-l  points  of  each  subsequent,  sect  ion 
..ire  ident  i  os  1  to  the  last  N-l  points  of  the  preceding  section. 
Tim  •  i  i rst  d-1  points  of  each  output  section  are  incorrect, 
whi  le  the  remaining  points  are'  identical  to  that  of  a  linear 


The  overlap-save  method  of  convolution 


convolution.  Each  output  section  has  its  first  N-l  points 
discarded.  The  remaining  sections  are  then  abutted  together 
to  construct  the  final  filtered  output. 

The  program  makes  use  of  the  in-place  convolution  fea¬ 
ture  (Kef  5:4-18) .  Using  this  feature,  the  size  of  each 
output  section  is  maximized.  The  data  setup  for  a  single 
operation  with  an  N-point  filter  file  is  shown  in  Fig  3-2a. 

The  filter  file  must  be  loaded  at  the  top  of  array  processor 
memory.  The  input  data  must  then  be  loaded  N  points  below 
the  filter  data.  Using  the  in-place  convolution  feature,  it 
can  be  specified  to  begin  writing  output  data  beneath  the 
tilt  or  data  and  to  continue  overwriting  the  input  data  if 
nucf-'ssary.  The  value  of  M  is  determined  from  the  relation¬ 
ship,  M  =  2U48-2N.  As  shown  in  Fig  3-2b,  for  an  M-point 
section  of  input  data,  the  matrix  operation  only  gives  the 
first  M  points  of  the  M+N-l  point  convolution.  Since  the 
program  always  discards  the  first  N-l  points,  each  output 
save  section  is  only  M-N+l  points  long.  If  the  in-place 
feature  is  not  used,  a  convolution  operation  cannot  be  speci¬ 
fied  where  output  delta  will  overwrite  input  data. 

For  a  r>12-point  filter  and  input  file,  the  program 
requires  two  matrix  operations  to  give  the  linear  convolu- 
' ion.  First  ,  the  front  of  the  input  data  file  is  augmented 
with  Ml  zeros.  The  back  of  the  input  data  file  is  also 
augmented  wit  1 1  zeros  to  allow  the  matrix  operation  to  overrun. 
The  input  da tii  is  then  loaded  in  two  1024-point  soctions 
overlapping  each  other  by  till  points  as  described  in  the 
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fig  3-2  Data  setup  in  array  processor  memory 

(a)  prior  to  convolution  operation  and 

(b)  after  convolution  operation 


overlap-save  discussion.  Each  convolution  operation  yields 
513  points  of  the  linear  convolution.  The  last  three  points 
of  the  second  convolution  ate  zero  and  ignored.  The  two 
output  save  sections  are  abutted  together  and  the  1023-point 
linear  convolution  is  written  to  the  user-specified  file. 

The  command  line  options  that  are  given  in  the  program's 
source  code  are  reproduced  for  convenience  in  Fig  3-3.  The 
following  command  line, 

CONV  INFILE/I  OUTFILE/O  FILFILE/F/D 
was  used  to  convolve  the  unit-step  data  files  shown  in 
Fig  3-4a  and  b.  Note  that  the  filter  file  was  deleted  after 
the  operation.  The  resulting  data  file  is  shown  in  Fig  3-4c. 


Com  and  line: 

CONV  input/I  [/D]  output/0  filter/F  t/0] 

■here  " input" /'output"  and  "filter"  are  any  leqal  RDOS  filenames. 

The  input,  output  and  filter  filenaaes  can  be  typed  in  any  order, 
however,  the  i  switch  should  always  be  attached  to  the  input 
file,  the  0  switch  should  always  be  attached  to  the  output  file, 
and  the  F  switch  should  always  be  attached  to  the  filter  file* 

The  D  switch  can  only  be  attached  to  the  input  and  filter  files, 
and  deletes  these  files  after  the  output  file  has  been  created. 


Fig  3-3  Program  CONV  command  line  options 


J-*l  An  example  of  using  program  CONV  with  two 

unit-step  functions,  (a)  and  (b),  to  obtain 
the  linear  convolution  (c) 
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Programs  for  Frequency-Domain  Processing 

To  allow  signal  processing  in  the  frequency-domain, 
four  DPT  related  programs,  FFT,  IFFT,  MAG,  and  MULT,  were 
generated  that  make  use  of  the  array  processor.  Program  FFT 
computes  the  corresponding  DFT  of  an  input  file  on  a  1024  or 
2048-point  basis.  The  input  file  must  contain  real  number 
data  and  the  output  file  will  contain  complex  number  data. 

If  the  input  file  contains  less  than  the  number  of  points 
required  for  the  DFT,  it  is  augmented  with  zeros  as  neces¬ 
sary.  To  complement  this  program,  program  IFFT  computes  the 
inverse  DFT  of  a  1024  or  2048-point  input  file.  The  input 
and  output  file  data  types  for  this  program  are  the  reverse 
of  that  for  the  forward  DFT  program.  Two  other  programs  were 
created  to  operate  on  1024  or  2048-point  DFT  data  files.  Pro¬ 
gram  MAG  computes  the  corresponding  magnitude  file  of-  an  in¬ 
put  file  and  program  MULT  performs  a  point-by-point  multiplica- 
titan  of  two  real  or  two  complex  input  files.  The  multiplica¬ 
tion  program  can  thus  be  used  to  operate  on  noth,  complex 
number  DFT  data  files  and  real  number  magnitude  data  files. 

To  compute  the  M-point  DFT  of  real  data  on  the  array 
processor  in  a  single  DFT  operation  sequence ,  M/2  must  be 
a  power  of  2  and  within  the  limits  of  8  and  1024.  Three 
separate  subroutine  calls  are  required  for  the  DFT  operation 
sequence.  Since  the  DFT  result  is  complex,  it  requires  twice 
the  space  of  the  time-domain  real  data.  However,  making  use 
of  symmetry  properties,  the  array  processor  returns  the  DFT 
in  a  format  that,  requires  only  half  of  this  span’  (Ref  5:4-35). 

20 


L 


I 

t 

« 


rc  o« 


« 


The  DFT  result  simply  overwrites  the  original  data. 

The  result  of  an  M-point  DFT  is  stored  in  array  proc¬ 
essor  memory  as  follows.  Since  the  first  point  and  the  M/2 
point  of  the  DFT  are  always  real,  these  two  points  are  stored 
in  the  first  two  points  of  the  result.  The  following  points 
form  a  complex  array  that  contains  the  second  through  M/2-1 
points  of  the  DFT.  To  obtain  the  DFT  for  the  M/2+1  through 
M  points,  this  complex  array  is  conjugated  in  reverse  order. 

To  compute  the  inverse  DFT,  the  DFT  data  file  must  be 
loaded  into  array  processor  memory  in  the  same  format  as 
the  forward  DFT  returns.  The  inverse  DFT  operation  sequence 
can  then  bo  called  to  return  the  original  time-domain  real 
data. 

The  MULT  and  MAG  programs  use  matrix  operations  to 
directly  perform  the  specified  operations  on  data.  Sub¬ 
routines  VMCA  and  VMRA  are  used  to  perform  a  point-by-point 
multiplication  of  complex  and  real  data,  respectively.  Sub¬ 
routine  VSMA  is  used  to  compute  the  square  of  the  magnitude 
of  complex  data.  The  square  root  is  taken  prior  to  writing 
the  re:.; u Its  to  file. 

The  process  of  multiplying  two  DFT  data  files  of  length 
N  and  M  and  then  faking  the  inverse  DFT  is  equivalent  to  per¬ 
forming  a  circular  convolution.  However,  if  the  DFT  data 
I  ile.s  were  not  created  on  the  basis  of  at  least,  all  N  +  M-l 
point.  DFT,  the  result  will  not  be  a  linear  convolution 
(lad  mill).  Thus,  when  using  this  DFT  package  to  implement 
a  linear  convolution  of  two  data  files,  it  must  be  remembered 

.10 


that  the  sum  of  the  two  time-domain  data  file  lengths  cannot 
be  larger  than  1025  points  when  using  the  1024-point  DPT 
option  or  larger  than  2049  points  when  using  the  2048-point 
DPT  option. 

The  command  line  format  for  each  program  is  given  in 

the  program's  source  code.  Each  format  is  similar  to  that 

of  the  convolution  program.  Shown  in  Fig  3-5  is  a  65-point 

discrete  sine  wave  (a)  and  the  corresponding  magnitude  of  its 

DPT  data  file  (b).  The  following  command  lines  were  used  to 

obtain  the  magnitude  data  file, 

PPT/S  SINE/I  DFTFILE/0 
MAG/S  DPTFILE/I  DFTSINE/0 

The  S  switch  indicates  that  the  1024-point  DFT  option  was 
used.  The  absence  of  this  switch  would  implement  the  2048- 
point  DFT  option.  The  following  command  line, 

IF FT/S  INVSINE/O  DFTFIEE/I 

was  used  to  retrieve  the  time-domain  signal  shown  in  Fig  3-5c. 
only  the  first  65  points  of  the  inverse  DFT  are  shown  since 
t he  coefficients  are  small  beyond  this  length. 


Fig  3-5  An  example  of  DFT  operations 

(u)  65-point  discrete  sine  wave 

(b)  tin'  DFT  "aqnitude  obtained  with 

progr . .  i  FT  and  MAG 

(c)  tlie  ?  overso  OFT  with  program  IFFT 
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IV  Computer- Aided  Design  of 
Linear  Phase  FIR  Filters 


This  chapter  will  present  a  brief  description  of  the 
Parks-McClellan  algorithm  for  designing  linear  phase  FIR 
filters.  The  steps  necessary  to  execute  the  IEEE  machine- 
portable  version  (Ref  11:5.2-1)  of  this  algorithm  on  the 
Eclipse  will  be  given.  The  program,  LPFIR,  that  was  gener¬ 
ated  by  modifying  this  algorithm  will  also  be  presented. 

The  Parks-McClol lan  Algorithm 

Since  the  Parks-McClellan  algorithm  was  presented  in 
1973  (Kef  7),  it  has  appeared  in  textbooks  (Ref  8:354-364; 

Ref  9:187-204)  and  been  used  in  commercial  software  packages 
(Kef  10:18,27).  The  algorithm  can  be  used  to  design  a  large 
class  of  linear  phase  FIR  filters.  It  makes  use  of  the  Remez 
exchange,  which  is  an  efficient  algorithm  for  designing  digi¬ 
tal  filters  with  minimum  weighted  Chebyshev  error. 

The  frequency  response,  H(f),  of  a  FIR  digital  filter 
with  a  N-point.  impulse  response,  h(n),  is  the  z-transform 
of  the  sequence  evaluated  on  the  unit  circle.  The  frequency 
response  of  a  linear  phase  filter  can  be  written  as, 

11(f)  =  G(f)  exp  l  j2TTf  (  Lfl/2-2  ( N- 1  )  )  J 
where  G(f)  is  a  real  function  and  L=0  (for  positive  symmetry) 
or  1  (for  negative  syi.imeLr  y ) .  it  can  be  shown  that  there  are 
exactly  four  cases  of  linear  phase  FIR  filters.  These  cases 
dill  or  in  length  of  the  impulse  response  (even  or  odd)  and 
the  symmetry  of  the  impulse  response  (positive  or  negative). 
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Positive  symmetry  is  defined  as  h(n)  =  h(N-l-n)  and  negative 
symmetry  as  h(n)  =  -h(N-l-n). 

In  all  four  cases,  a  function  G(f)  can  be  used  to  ap¬ 
proximate  the  desired  magnitude  specification.  Using  symmetry 
relations,  G(f)  can  be  expressed  as  follows  for  the  four 
different  cases.  In  all  cases,  n  =  1,  2,  3,...k. 

Case  1 :  positive  symmetry,  odd  length 
k 

0(f)  *  2^2  h(k-n)cos(21Yf ) 
n=0 

where  k  =  (N-l)/2  and  h(k)  =  1/2 
Case  2;  positive  symmetry,  even  length 
k 

0(f)  =  2^  U(k-n)cos(  2TTf  (n-1/2)  ) 
n=l 

where  k  =  n/2 

Case  3;  negative  symmetry,  odd  length 
k 

c(f)  -  2]^  h(k-n)sin(  2Trnf ) 
n=l 

where  k  =  (N-l)/2  and  h(k)  =  0 
Case  4:  negative  symmetry,  even  length 
k 

t;(f)  =  2^  h(k-n)sin(2Trf  (n-1/2) ) 
n=  1 

where  k  =  N/2 

Earlier  efforts  at  designing  FIR  filters  concentrated  on 
Case  1.  Hut  Parks  and  McClellan  presented  a  method  of 
combining  all  four  cases  into  one  algorithm.  This  was  done 
by  using  symmetry  relations  to  express  the  other  three  cases 
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as  a  form  of  the  first  case,  Q(f),  multiplied  by  a  function, 
P(f).  This  allows  all  four  cases  to  be  expressed  as 
0(f)  =  Q(f)P(f),  where  P(f)  is  a  linear  combination  of  cosine 
functions.  Since  all  four  cases  can  be  expressed  in  a  common 
form,  a  single  computation  routine  (the  Remez  exchange)  can 
be  used  to  calculate  the  filter  approximation. 

The  filter  approximation  is  obtained  as  follows.  Given 
a  desired  magnitude  response,  D(f),  and  a  positive  weight 
function,  W(f),  both  continuous  over  a  compact  subset 
F  c  L  0 ,  J ,  the  absolute  weighted  error  is  defined  as, 

||i:(f  )||  =  max  W(f  )  |  D  ( f  )  — G  (  f  )  | 
fGF 

Defining  the  frequency  domain,  F,  in  this  manner  implies  a 
sampling  rate  of  1.  The  above  expression  can  be  rewritten 
as , 

||K(f)||  =  max  W(f  )Q(f  )  |D(f  )/Q(f  )-P(f  )| 
fep 

This  expression  can  be  used  to  calculate  the  best  approxi¬ 
mation  based  only  on  cosine  functions.  The  minimum  weighted 
error  can  be  obtained  by  careful  choice  of  the  coefficients 
of  P(f).  The  alternation  theorem  is  used  to  determine  the 
number  of  cosine  functions  necessary.  By  making  use  of  the 
error  function  and  the  conditions  of  the  alternation  theorem, 
the  Purks-McClellun  algorithm  provides  the  best  filter  ap¬ 
prox  i mation. 
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Implementation  oil  tho  Eclipse 

The  referenced  IEEE  publication  contained  the  source 
code  for  the  Parks-McClellan  algorithm  used  in  program  LPFIR. 
This  publication  was  the  result  of  an  effort  to  collect  and 
make  some  of  the  popular  DSP  programs  more  available  and 
machine  independent.  In  the  IEEE  version,  the  Parks-McClellan 
algorithm  had  several  variations  from  the  original  paper. 

The  major  difference  was  with  the  REMEZ  subroutine.  This 
subroutine  was  changed  significantly  to  allow  it  to  use  vari¬ 
ables  already  present  in  a  common  block  to  compute  the  cosine 
functions,  instead  of  passing  additional  variables  as  argu¬ 
ments.  Also,  throughout  the  entire  software  package,  minor 
changes  were  made  that  affected  mixed-mode  arithmetic  and 
library  subroutines. 

The  only  system  dependent  parameters  that  had  to  be  de¬ 
fined  for  the  IEEE  version  were  the  I/O  unit  numbers.  The 
READ  statements  were  changed  to  ACCEPT  statements  to  allow 
data  to  be  easily  input  from  the  console.  After  these  changes 
were  made,  the  source  code  for  the  mainline  and  subroutines 
wore  separately  compiled  and  the  program  was  loaded.  The 
program  was  executed  without  any  problems. 

Each  filter  example  given  in  the  IEEE  publication  and 
the  original  paper  v/as  reproduced  with  the  program  on  the 
Eclipse.  The  impulse  response  for  all  examples  was  identical 
within  L>-n  decimal  positions.  The  program  output  given  on 
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page  h.1-7  of  the  IEEE  publication  for  a  E'j-point  multiband 
filter  is  given  as  Pig  d-1.  The  filter  design  with  the  pro- 


gram  executed  on  the  Eclipse  for  the  same  parameters  is  given 
as  Fig  4-2. 


Program  Description 

The  Parks-McClellan  algorithm  as  listed  in  the  IEEE 
publication  and  other  referenced  sources  was  intended  for 
use  with  a  card  reader.  To  allow  data  input  to  be  more  de¬ 
scriptive,  this  section  of  code  was  modified  to  request  the 
parameters  from  the  user  and  give  appropriate  ranges  of 
values.  The  program  was  also  modified  to  be  executed  in  a 
command  lino  format  similar  to  that  of  the  signal  processing 
programs.  The  command  line  options  that  are  given  in  the 
program's  source  code  are  reproduced  for  convenience  in 
F  i  g  4  -  J . 

There  are  several  options  available  for  executing  the 
program.  A  parameter  file  is  created  for  each  set  of  filter 
parameters  given  to  the  program.  This  file  can  be  option¬ 
ally  deleted  after  designing  the  filter  impulse  response. 

It  can  also  bo  retained  and  the  next  filter  design  made  by 
simply  referencing  the  existing  parameter  file.  Each  fil¬ 
ter  design  is  also  written  to  a  file.  The  filter  output 
listing,  such  as  that  given  in  Figs  4-1  and  2,  can  be  op¬ 
tionally  printed.  A  new  parameter  file  can  bo  created  and 
an  existing  parameter  file  can  be  viewed  and/or  altered  with¬ 
out  designing  the  corresponding  filter.  An  example  of  the 
parameter  file  display  that  is  given  each  time  the  program 
is  executed  is  shown  in  Fig  4-4.  This  figure  is  the  display 
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HI25) 

m 

. 740390 10E-0I 

HC 

31  ) 

H 1 26 ) 

m 

-.  I03I7420E  00 

HC 

30) 

HI  27 ) 

m 

237I6610E-0I 

HC 

29) 

HI20) 

m 

.  37B13330E  00 

HC 

28  > 

LOWER  BAND  EDGE 
UPPER  BAND  EDGE 
DESIRED  VALIA: 

WE IGHT I NO 
DEVIATION 
DEVIATION  IN  DB 


BAND  1 

0000000 
0300000 
.  OOOOCOO 
10  0000000 
0034448 
-49  3363900 


BAND  2 
. 1000000 
1300000 
I  0000000 
1  0000000 
0344484 
.  2941704 


BAND  3 

1800000 
.  2300000 
.  OOOOOOO 
3.  OOOOOOO 
01 14828 
-38.  7990100 


BAND  4 

3000000 
.  3600000 
1.  OOOOOOO 
1.  OOOOOOO 

.  0344484 
. 3941704 


LOWER  BAND  EDOE 
UPPER  BAND  EDOE 
DESIRED  VALUE 
WEIOHTINO 
DEVIATION 
DEVIATION  IN  DB 


BAND  3 
4  1 00000 
.  3000000 
OOOOOOO 
20  OOOOOOO 
.  0017224 
-33  2771900 


EXTREMAL  FREQUENCIES — MAXIMA  OF  THE  ERROR  CURVE 


OOOOOOO 

tuooooo 

1000000 

2436141 

3302217 

4437133 


0167411 

1009203 

1033802 

2300000 

3600000 

4633698 


0323661 
. 126/049 
1970366 
. 3000000 
. 4100000 
4814264 


0446428 
1424094 
213481 1 
3122764 
4133802 
3000000 


0300000 
.  1300000 
.  2302217 
.  3323631 
.  4289727 


Sample:  proqram  output  from  l'clipse 


Coaaand  line: 

LPFIR  paraaeter/P  C/E]  C/D]  Cfilter/F  C/Ll  ] 

ahere  "paraaeter"  and  "filter"  are  any  leqal  RDOS  filenaae 

The  P  saitch  aust  aleays  lie  attached  to  the  paraaeter  filenaae*  A 
paraaeter  file  aill  be  created  aith  the  filter  paraaeters 
interactively  specified  by  the  user*  The  filter  paraaeters  aill 
be  displayed  and  can  be  chanqed  it  requested  by  the  user* 

The  E  saitch  denotes  that  the  paraaeter  file  already  exists*  The 
filter  paraaeters  aill  be  display  and  can  be  chanqed  if  requested 
by  the  user* 

The  filter  filenaae  and  F  saitch  denotes  that  the  filter  specified 
by  the  paraaeter  file  aill  be  desiqned  and  the  iapulse  response 
stored  under  the  filter  filenaae.  The  F  saitch  aust  he  attached* 

The  L  saitch  denotes  that  a  listinq  for  the  filter  desiqn  aill 
be  sent  to  the  printer. 

If  the  paraaeter  and  filter  files  are  both  qiven,  they  can  be 
typed  in  any  order* 

The  D  saitch  can  only  be  attached  to  the  paraaeter  file  if  a 
filter  file  is  also  specified.  This  saitch  deletes  the  paraaeter 
file  after  the  filter  file  has  been  created* 


Fig  *1-3 


Program  LPFIR  command  line  options 


Parameter  Fn./mu '’**“*■*'*«»»•■*  |»«.r<-- 
mt.r  l.n.tk:  »  ta*tr  U 


band  Nuaber 
Band  Huaber 
Band  Huaber 
Band  Nuaber 
Band  Nuaber 


1 

2 

3 

4 

5 


Loaer 

Cutoff 

.0000 

.1000 

.1000 

.3000 

.4100 


Upper 

Frequency 

Height 

Cutof  f 

Response 

Function 

.0500 

0. 

10. 

.1500 

1. 

1 , 

.2500 

0. 

3. 

.3000 

1. 

1. 

.5000 

0. 

20. 

Do  you  aant  to, 

l:  accept  the  above  parameters 
2s  change  the  above  parameters 
(election: 


Iig  4-4  Program  LPFIR  parameter  file  display 


for  fho  parameter  file  used  to  generate  the  output  listing 
i n  F 1  cj  4-2. 

The  program  fails  to  design  many  filters  with  reason¬ 
able  design  parameters.  Also,  design  parameters  that  yield 
a  well-designed  filter  can  be  changed  only  slightly  and  will 
yield  a  very  poorly  designed  filter.  The  Parks-McClellan 
algorithm  returns  an  error  message  if  the  REMEZ  routine  fails 
to  find  a  proper  set  of  cosine  functions  to  approximate  the 
filter.  However,  the  algorithm  does  not  give  any  error 
messages  for  poorly  designed  filters,  that  is,  filters  with 
a  large1  amount  of  ripple  and  with  a  frequency  response  that 
differs  greatly  from  the  desired  amount.  All  filter  designs 
from  the  program  should  be  verified  with  a  DFT  prior  to  use. 

A  systematic  approach  was  found  to  allow  the  filter 
design  parameters  that  most  closely  approach  the  desired 
t  liter  to  be  found  within  several  filter  design  iterations. 
This  method  is  presented  in  the  form  of  a  user's  manual  for 
program  BPFIk.  Basically,  the  user  begins  with  a  desiqn  far 
loss,  I  i  i  ngont  than  wl.il  is  desired.  Parameters  are  sepa¬ 
rately  adjusted  until  further  adjustment  does  not  yield  a 
better  f  i  Lter  design.  The  user's  manual,  and  the4  source4  code 
lor  the  mainline  and  subroutines  of  program  bPFlk  are  given 
in  Appendix  E.  'the  user's  manual  also  explains  how  to  set¬ 
up  a  macro  1  j  Le  I  ha  L  contains  programs  LITfk,  FFT,  MAb ,  and 
I-  I  I.TPI.OT.  This  macro  allows  the  user  to  design  and  display 
tillers  quickly  ui  an  interactive  environment. 


V  Conclusion 


This  chapter  will  summarize  the  results  of  this  effort 
and  give  three*  recommendations  of  how  the  signal  processing 
system  could  be  improved. 

Sumnia  r  y 

The  purpose  of  this  effort  was  to  increase  the  capa- 
biJLity  of  the  A  FIT  signal  processing  laboratory  and  to  make 
it  more  user-oriented.  Three  areas--digitizing  operations, 
signal  processing  operations,  and  digital  filter  design  were 
considered  for  expansion.  Software  was  generated  that  made 
use  of  the  He 1  ipso  A/D/A  device's  two  main  features,  the 
capability  to  work  with  large  data  files  and  have  conversion 
operation  options  interactively  set  by  the  user.  A  user's 
manual  for  this  device,  that  is  intended  to  replace  the  Data 
general  documentation,  was  written  to  aid  in  writing  future 
software.  The  array  processor  was  utilized  in  several  signal 
processing  programs  that  are  executed  by  typing  a  single  line 
command.  A  convolution  program  was  generated  that  allows 
large  data  f  Lies  to  be  convolved  with  filters  containing  up 
In  hi.:  points.  Programs  were  also  generated  to  allow-  Fourier 
'Ir.iiiH!  m  in  related  operations  to  be  performed  on  data  file's 
containing  up  to  20dH  points.  An  existing  filter  design 
program,  capable  of  building  a  wide  variety  of  linear  phase 
IIP  digital  I  i  Iters,  was  modi  fil'd  to  allow  easy  operation  and 
exeeut  ion  on  the  Kclipse.  A  user's  manual  for  this  program 
was  writ  ten  to  give  guidance  in  ad  justing  the  filter  design 

d.l 


parnmet  i>rs  to  obtain  the  desired  digital  filter.  This  soft¬ 
ware  package  will  allow  personnel  using  the  laboratory  to 
perform  additional  signal  processing  operations. 

Id  'Ci  immeitda  L  K  ins 

Applying  the  Eclipse  A/D/A  device  to  perform  video 
digit  i  z  i  ng  operations  should  be  investigated.  This  would 
allow  the  .laboratory  to  have  a  back-up  digitizing  capability 
in  both,  the  speech  and  video  areas. 

The  array  processor  will  not  be  utilized  by  the  ma¬ 
jority  ol  users  in  the  laboratory  until  the  degree  of  diffi¬ 
culty  in  operating  this  device?  is  reduced.  A  way  this  could 
be  done  is  by  creating  corresponding  stand-alone  subroutines 
for  each  ol  the  array  processor  matrix  operations.  This 
would  free  the  user  from  dealing  with  array  processor  mem¬ 
ory,  setting  up  matrix  operation  control  blocks,  and  arranging 
data  in  peculiar  formats  reguired  by  some  operations.  All  of 
the  mat  ri.\  operations  deal  with  small  amounts  of  data,  since 
array  processor  memory  is  only  8KW .  Data  could  be  inter¬ 
changed  be  ween  the  mainline  and  subroutine  as  arguments 
and  array  processor  memory  transfers  could  be  handled  with 
the  V:'.Tl:  and  VI, DR  subrout  ines .  It:  would  require  more  over¬ 
head  to  peri o r m  each  matrix  operation,  however,  the  speed  of 
the  array  proces.sor  and  the  increase  in  its  usage  would  make 
this  ei  i art  wort  hwhile. 

the  filter  design  program  should  bo  revised  to  allow 
I  i  Iters  containing  up  to  '112  points  to  bo  built,  since  the 
convolut  ion  program  can  handle  fillers  of  this  length.  The 

•id 


current  filter  design  program  has  a  filter  length  limit  of 


I 


u 


2  ho  points.  The  following  variables  within  this  program  can 
be  adjusted,  however,  as  shown  below  to  allow  filters  of  any 
s  i  i'.e  t  o  be  bui  It.  . 


Name 


Dimension 


I  EXT 
AD 

ALPHA 

X 


Y 


wr 

DES 

(’.HID 


MAX/2+2 

MAX/2+2 

MAX/2+2 

MAX/2+2 

MAX/2+2 

MAX/2+2 

1 G ( MAX/ 2  +  2 ) 

1 6 ( MAX/2+2) 

lb (MAX/2+2) 


where  MAX  =  the  maximum  filter  length 


i.'evisiiig  the  current  program  to  build  f>12-point  filters  would 
require  doubling  the  space  of  the  variables  given  above  from 
bl.Dl.W  to  2D.0KW.  This  would  cause  the  program's  executable 
sa\c  rile  to  exceed  the  32 KW  maximum. 

An  approach  to  solving  this  problem  would  bo  to  use 

i  ■ I  i  •  1 1  d  e  r  I  memory  l.o  hold  two  of  the  large  data  arrays,  DES 

and  dtdD.  by  (..lacing  these  arrays  in  extended  memory,  the 

in.  i  i  id  i  ue  call  be  reduced  to  an  acceptable  sire.  The  array 

element  s  can  be  accessed  by  the  mainline  and  subroutines 

ny  using  I  nr  YSTASII  and  VEETCll  calls.  Since  these  are  real 

an  i.  n,  the  ;  ol  Lowing  liner;  of  cock'  could  be  pieced  in  the 

mainline  to  not  up  1  he  extended  memory  window, 

1 : 1  .A  b  W  I  N 1  >  (  102 4  ) 

CAM,  MAI’Di  (  17,  W  HID,  1,2,1  l.K  ) 

i  i,o  data  army  subscripts  could  be  clienged  us  shown 
on  the  ne.d  page  to  plac< '  HES  at  the1  top  of  extended  memory, 


followed  by  GRID. 


Original  Revised 

Array  Subscript  Subscr i  pt. 

des  j  j 

GRID  K  K+4128 


An  example  of  how  to  revise  the  source  code  to  allow 
data  to  be  transferred  between  the  mainline  and  extended  mem¬ 
ory  is  shown  below, 

Original  Code  Revised  Code 

GklD(K)  =  DELF+NFCNS  HOLD  =  DFLF+NFCNS 

PLACE  =  K+4128 

CALL  VSTASIK HOLD, PLACE) 

I!  (  L  )  =  GRI1>(  K  )  +UELF  PLACE  =  K+4128 

CALL  VFETCH( HOLD, PLACE) 

H ( I )  =  HOLD+DELF 

where  HOLD  is  a  real  variable 

PLACE  is  an  integer  variable 

The  AF1T  signal  processing  laboratory  has  grown  tre¬ 
mendously  in  the  past  few  years  and  plans  have  been  made  for 
additional  expansion.  This  is  an  indication  of  the  notable 
research  that  the  laboratory  is  used  to  support.  Although 
the  research  is  directed  toward  military  application,  many 
civilian  areas  would  also  benefit.  It  is  hoped  that  this 
el  felt  v.  i  1  1  aid  future  research  by  allowing  personnel  to  mak< 


bet  t  i  ■  i  us< 


"I  the  l.i  bor.itory  '  s  capability. 
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Pref aco 


Tin1  Kelipse  computer  in  the  A  FIT  signal  processing 
laboratory  is  equipped  with  a  model  4  l31  analog  data  sub¬ 
system  and  the  Sensory  Access  Manager,  SAM,  software  package. 
The  SAM  software  package  aids  in  building  I/O  programs  for 
bat  a  Oei a ■  r a  l  computers  equipped  witli  appropriate  analog-to- 
dialt  al-l  D-aimlaq  devices,  such  as  the  model  43131  subsystem. 

This  manual  explains  how  to  write  application  programs 
that  operate  l  he  Kelipse  A/I>/A  device  and  concentrates  on 
methods  of  most,  interest  for  signal  processing  applications. 
To  focus  in  this  area,  the  scope  of  this  manual  will  be 
limited  to  working  with  SAM  in  Fortran  V  and  IX!  assembly 
language  and  operating  the  model  4331  subsystem  in  data 
channel  mode.  The  model  4331  subsystem  and  SAM,  however, 
are  vernal i 1 e  and  have  other  features  that  will  only  be 
m<  -:il  i  i  >n> 'd .  The  SAM  User’s  Manual  and  the  Models  4330-4333 
r  i  o.  1 1  a .  mi  ■  r  1 ■  and  Technical  References,  all  written  by  bat. a 
dener.il,  sir  >uld  be  consulted  for  detailed  descriptions  of 
liie.se  .mdi  t  i.on.il  features. 

Ml  sample  programs  included  in  this  manual  have  boon 
rit  i  ed  to  opera  I  e  on  the  Roli.pse  computer  in  the  exact 


]  o  I  iii,  it  ;  ;|  |.  n,  1 1  . 
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Chapter  1 

Introduction  to  SAM 


Call  Categories 

The  Sensory  Access  Manager,  SAM,  is  a  software  package 
that  simplifies  the  building  of  I/O  programs  which  utilize 
A/D/A  devices.  SAM  allows  these  devices  to  be  operated  flex¬ 
ibly  through  the  use  of  Fortran  IV,  Fortran  V,  or  assembly 
language  calls.  This  manual  will  only  discuss  usage  of  For¬ 
tran  V  and  assembly  language  calls,  since  Fortran  IV  pro¬ 
gramming  is  usually  not  used  on  the  Eclipse  computer.  An 
application  program  can  perform  A/D  conversions  or  D/A  con¬ 
versions  or  both.  A  single  conversion  operation,  however, 
can  only  perform  A/D  or  D/A  conversions. 

The  conversion  calls  can  post  either  a  single-opera- 
tien  or  multiple-operation  reguest.  A  single-operation  re¬ 
quest  specifies  a  cyclist  list  of  channels  from  which  data 
will  be  collected  or  sent,  a  total  conversion  count  for  all 
channels,  and  a  single  clock  source  which  is  used  to  trigger 
conversions.  Multiple-operation  requests  set  up  a  series  of 
single-operation  requests.  With  both  types  of  requests,  pro¬ 
gram  control  can  either  be  suspended  until  the  request  defined 
lias  been  completed  or  returned  immediately,  in  which  case  the 
program  must  cheek  for  completion  later.  Since  the  main  ad¬ 
vantage  of  multiple-operation  requests  is  the  ability  to  oper¬ 
ate  more  than  one  device,  their  usage  will  not  be  discussed 


The  Eclipse  A/D/A  device  can  be  operated  in  one  of  two 
modes  according  to  how  it  will  move  conversion  data — pro¬ 
grammed  I/O  or  data  channel  I/O.  With  programmed  I/O,  data 
is  moved  through  an  accumulator  where  it  is  readily  available 
to  the  program  for  manipulation.  However,  because  one  or  more 
instructions  must  be  executed  for  each  word  transferred,  pro¬ 
grammed  I/O  is  slow  and  generally  used  only  when  small  quanti¬ 
ties  oi  information  are  transferred.  Data  channel  I/O  reduces 
the  amount  of  program  overhead  by  transferring  blocks  of  data 
automatically  via  the  data  channel.  Once  the  data  channel 
transfer  for  a  block  of  data  has  been  set  up  and  initiated 
by  the  program,  no  further  action  by  the  program  is  required 
to  complete  the  transfer.  This  is  the  only  method  of  data 
transfer  that  will  be  discussed  in  this  manual. 

Programming  Trade-offs 

The  manner  in  which  the  Fortran  and  assembly  language 
calls  interface  with  an  application  program  to  control  a 
device  is  shown  in  Fig  1-1.  Fortran  interfaces  work  through 
the  assembly  level  interface.  The  assembly  level  interface 
works  through  the  operating  system  which  drives  the  devices, 
.since  the  assembly  language  calls  require  less  overhead,  they 
are  faster  arid  allow  more  space  in  the  main  program  for  data 
storage.  If  the  user  is  familiar  with  assembly  language  pro¬ 
gramming,  operating  the  device  at  this  level  is  not  much  more 
difficult  than  operating  the  device  with  Fortran  programming. 
This  is  because  the  assembly  language  macros  provided  in  the 


A 
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SAM  libraries  allow  the  device  to  be  operated  in  a  manner 
similar  to  that  of  Fortran  programming.  With  Data  General 
Fortran  V  programming,  it  is  possible  to  write  the  main  pro¬ 
gram  for  data  manipulation  in  Fortran  V  and  then  call  upon 
^  a  subroutine,  overlay,  or  swap  written  in  assembly  language 

[  to  operate  the  device.  This  method  would  be  useful,  for 

r 

j  instance,  when  repeated  A/D  conversion  calls  would  be  neces- 

!  sary  to  collect  the  desired  number  of  data  samples.  Writing 

this  section  of  code  in  assembly  language  would  allow  data  to 
be  moved  from  the  data  buffer  more  quickly,  thus  losing  fewer 

I 

I  data  samples  between  repeated  A/D  conversion  calls.  If  the 
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Fig  1-1  SAM  Interfaces 
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user  is  not  familiar  with  assembly  language  programming,  how¬ 
ever,  operating  the  device  at  the  Fortran  level  will  be  much 
easier.  The  Fortran  calls  can  perform  any  single  conversion 
operation  request  that  can  be  done  with  assembly  language 
calls.  If  repeated  conversion  calls  are  not  necessary  to 
handle  the  desired  amount  of  data,  then  nothing  significant 
is  gained  by  using  assembly  language  calls.  This  is  because 
once  conversion  operations  begin  triggering,  Fortran  calls 
and  assembly  language  calls  are  handled  by  the  operating  sys¬ 
tem  in  the  same  manner.  If  the  main  program  cannot  provide 
■  up.  .pace  lor  the  Fortran  overhead  and  data  arrays,  then 

-  a  swap  or  overlay  can  be  used  to  handle  the  conversion 
,  .  ;  v  on.  The  largest  number  of  data  samples  any  single  con- 
v.  a  si  ,,  operation  can  handle  is  16,384.  The  Fortran  overhead 
and  oat  a  at  rays  t: o  handle  such  a  single  conversion  operation 
will  t  it  within  the  maximum  length  of  32KW  that  can  be  allot¬ 
ted  fiii  an  executable  overlay  or  swap  file.  basically,  pro¬ 
gram  swaps  operate  by  overwriting  main  memory  with  a  new 
program,  while  overlays  overwrite  a  section  of  main  memory 
with  new  code.  Program  swaps  are  easier  to  learn  to  use  and 
set  up  than  overlays.  Therefore,  if  a  secondary  file  will  bo 
used  to  handle  the  conversion  operation  and  the  file  is  near 
S.’KW  long  or  if  the  additional  processing  delay  caused  by 
program  swaps  can  be  tolerated,  then  a  program  swap  would  be 
the  better  method.  An  example  of  a  program  swap  setup  is 
given  in  F ig  1 - Z . 
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C  The  eain  program  could  erite 
C  parameters,  such  as  output  or 
C  input  filename,  number  of 
C  conversions,  etc,  to  a  file. 

C  A  smap  is  called  if  the 
C  conversion  operation  is 
C  required. 


CALL  SHAP("CQNV<SV“,IER) - 

IF  (IER.HE.1)  CALL  ERROR"*— 

A 

» 

• 

The  main  program  continues 
operation  mith  all  variables 
returned  to  their  values 
before  the  smap. 


This  program  could  read 
the  parameters  from  file 
and  performed  the  specified 
conversion  operation. 

e 

e 

CALL  EXIT 
END 


Fig  1-2  Program  SWAP  setup 


Opor.it  i nq  Overview 


The  basic  additions  that  must  be  included  in  an  appli¬ 
cation  program  to  perform  A/D/A  operations  are  quite  simple. 
First,  the  device  op-codes  and  conversion  data  buffers,  spec¬ 
if  ied  by  the  configuration  file  to  be  used,  are  declared  at 
the  beginning  of  the  program.  Second,  the  operating  system 
is  initialized  with  a  SAM  library  subroutine  call.  Finally, 
after  setting  the  arguments  to  appropriate  values,  another 
SAM  1 Lbrary  subroutine  is  called  to  perform  the  operation. 

The  SAMCI-.N  program  located  in  the  SAM  directory  of  DP4F 
is  used  to  create  the  configuration  file.  The  conf iguration 
fill'  defines  parameters  used  by  the  operating  system  to  oper¬ 
ate  the  l/o  device.  It  is  loaded  with  the  main  program  in 
the  HI. DR  command  line.  All  conversion  operations  in  the  ap¬ 
plication  program  must  adhere  to  the  framework  set  up  by  the 
configuration  file  loaded  with  the  program. 

This  manual  is  divided  into  chapters  which  discuss  each 
of  the  steps  necessary  to  run  an  A/D/A  application  program. 
Chapter  2  describes  the  basic  capabilities  of  the  Eclipse 
A/D/ A  device  and  how  to  set  the  argument  values  for  the  For¬ 
tran  and  assembly  language  conversion  operation  calls.  Chap¬ 
ter  A  describes  how  to  build  configuration  files.  The  general 
program  sol  up  and  the  different  SAM  subroutine'  calls  are  de¬ 
scribed  in  Chapter  4  for  Fortran  V  programming  and  Chapter  5 
i or  assembly  language  programming.  Finally,  Chapter  6  de- 
sei i bes  how  lo  compile  and  load  application  programs. 
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Chapter  2 

The  Model  4331  Subsystem 

General  Information 

The  model  4331  analog  data  subsystem  is  a  stand-alone 
device  which  contains  both  the  A/D  and  D/A  converters.  It 
consists  of  a  15-inch  printed  circuit  board  that  fits  in  a 
slot  on  the  Eclipse  computer  chassis.  The  Eclipse  computer 
contains  many  such  slots  for  expansion.  User  interface  to 
the  circuit  board  is  provided  through  two  connector  paddle- 
boards— one  called  analog  and  one  called  digital.  The  pin 
connections  fur  these  two  paddleboards  and  other  specifica¬ 
tions  are  given  in  the  Models  4330-4333  Technical  Reference. 

The  subsystem  contains  independent  software  interfaces 
for  A/D  and  D/A  operations.  Each  interface  has  its  own  device 
code  and  must  bo  accessed  separately  in  the  application  pro¬ 
gram.  The  A/D  section  is  organized  around  a  single  12-bit 
A/D  converter  and  two  multiplexors.  The  multiplexors  allow 
input  of  up  to  lo  differential  signals.  The  D/A  section  is 
organized  around  two  12-bit  D/A  converters.  The  A/D  and  D/A 
converters  can  bo  set  with  jumpers  to  operate  at  a  voltage 
range  of  0  lo  5v,  0  to  lOv,  +_5v,  or  +_10v  with  conversion 
values  returned  in  either  straight  binary  or  two's  complement 
format.  Doth  converters  have*  been  set  to  operate  at  the  j+5v 
range  in  two’s  complement  format. 

A  ('onvers  ion  value  is  stored  in  one  machine  word  with 
bit  0  used  as  a  sign  bit  and  bits  1-11  used  to  store  the 
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Tlie  remaining  bits,  12-15,  are  always  returned  zero 


from  an  A/D  operation  and  are  ignored  on  a  D/A  operation. 
The  bit  settings  are  shown  in  Fig  2-1  for  the  most  positive 
conversion  value,  077760K,  and  the  most  negative  conversion 
value,  100000K . * 
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Fig  2-1  Conversion  value  stored  for  (a)  most  positive 
and  (b)  most  negative  value 

The  12  bits  provide  4,090  different  conversion  values,  with 
2,04W  allocated  for  negative  values,  2,047  allocated  for  posi¬ 
tive?  values,  and  one  allocated  for  the  value  zero.  Since  the 
device  is  set  for  a  full  range  of  10  volts,  each  increment 
represents  approximately  .0024  volts.  Shown  in  Table  2.1  is 
a  list  of  stored  values  and  corresponding  voltages  for  sev¬ 
eral  conversion  numbers.  Since  integer  numbers  on  the  Eclipse 
computer  also  occupy  one  machine  word  using  the  same  two's 
complement  format,  a  one-to-one  correspondence  can  be  made 
between  a  sampled  value  and  its  integer  value.  Due  to  the 


*  The  symbol  K  indicates  octal  format.  This  notation  is 
adapted  from  that  used  in  Data  General  Fortran  V  to 
indicate  that  a  number  is  in  base  eight  representation. 


least  four  significant  bits  of  each  word  not  being  used,  con¬ 
version  values  occur  in  corresponding  integer-value  multiples 
of  sixteen.  Making  use  of  the  integer-value  correspondence, 
a  conversion  value  can  be  changed  to  its  actual  voltage  value 
with  a  single  line  of  Fortran  code  such  as  the  following, 

RE ALNUM=  FLOAT ( I NTNUM )  /3  2  7  6  8 . *  5 . 
where  INTNUM  is  the  one-word  conversion  value  and  REALNUM 
is  the  corresponding  two-word,  real  number  representation  of 
the  actual  sampled  value. 

To  request  a  conversion  operation,  variables  are  passed 
via  Fortran  or  assembly  language  calls.  The  following  section 
explains  how  to  set  the  variable  values  for  each  type  of  call. 
The  I DAT Ax  words  indicate  Fortran  variables  and  the  CDATx 
words  indicate  assembly  language  variables. 


Conversion 

Number 

Octal  Value 
Stored 

Integer  Value 
Stored 

Actual  Sampled 
Value 

-2048 

100000 

-32768 

-5.0000V 

-2047 

100020 

-32752 

-4.9976V 

-2046 

100040 

-32736 

-4.9951v 

-1536 

120000 

-24576 

-3.7500V 

-512 

160000 

-8192 

-1.2500v 

-2 

177740 

-32 

-0.0049V 

-1 

177760 

-16 

-0.0024V 

0 

000000 

0 

0.0000V 

1 

000020 

16 

0.0024v 

2 

000040 

32 

0.0049v 

512 

020000 

8192 

1.2500v 

1536 

060000 

24576 

3.7500v 

2046 

077740 

32736 

4.9951V 

2047 

077760 

32752 

4.9976V 

Table  2.1  Conversion  values  stored  and 
corresponding  voltages 
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The  variables  passed  for  both  A/D  and  D/A  requests  in¬ 
dicate  the  channel  use  numbers,  conversion  count,  clock  source, 
and  the  storage  location  for  conversion  values. 

The  channel  use  numbers  are  specified  differently  for 
A/D  or  D/A  operations.  For  A/D  operations,  the  initial  and 
final  channel  numbers  are  specified.  The  A/D  channels  are 
numbered  0-15.  For  example,  if  4  was  given  as  the  start 
channel  and  7  as  the  final  channel,  conversions  would  be 
taken  from  channels  4,  5,  6,  7,  4,  5,  6,  etc.  The  converter 
will  wrap  around  from  channel  15  to  channel  0.  For  example, 
if  13  and  2  were  given  as  the  start  and  final  channels,  con¬ 
versions  would  be  taken  from  channels  13,  14,  15,  0,  1,  2, 
etc.  To  specify  a  fixed  channel,  the  same  value  is  entered 
for  both  the  initial  and  final  channel.  For  D/A  operations, 
the  initial  channel  and  fixed/alternate  mode  are  specified. 

The  D/A  channels  are  numbered  0  and  1. 

The  device  offers  four  clock  sources— pulse,  DCH,  in¬ 
ternal,  and  external.  The  A/D  converter  can  use  all  four 
clocks,  however,  the  D/A  converter  can  use  only  the  pulse, 
internal,  and  external  clocks.  The  pulse  clock  triggers  con¬ 
versions  i  rom  software  generated  pulses  and  the  DC1I  clock 
triggers  conversions  at  the  maximum  rate  the  device  allows. 
These'  t  wo  clocks  are  not  as  useful  for  signal  processing  ap~ 
pi i cat  ions  as  are  the  internal  and  external  clocks.  It  is 
more  difficult  to  control  the  pulse*  clock  rate  with  precision 
than  it  is  for  tin.*  external  clock.  The  DCH  clock  rate  is  too 


fast  for  most  signal  processing  applications.  Using  a  TTL 
pulse  generator  as  an  external  clock,  with  a  frequenc  counter 
to  measure  the  clock  period,  the  external  clock  provides  an 
accurate-,  versatile  clock  source.  The  A/D  and  D/A  converters 
have  separate  connections  for  external  clocks.  The  internal 
clock  can  bo  set  for  a  clock  period  range  of  45-300  microsec. 
However,  the  adjusting  mechanism  for  this  clock  is  a  screw¬ 
driver,  variable  resistor  on  the  main  printed  circuit  board. 
Since  this  board  must  be  removed  from  the  Eclipse  computer 
for  clock  adjustment,  the  external  clock  must  be  used  if  the 
current  internal  clock  setting  is  not  what  is  desired.  Cur¬ 
rently,  the  internal  clock  is  set  for  a  clock  period  of  46 
in  Lcrosec . 

The  variable  I DATA 1 /C D AT 1  occupies  one  machine  word 
and  specifies  the  clock  source  and  the  channel  use  numbers. 

In  lor  Iran,  JDA'l'Al  can  be  an  integer  or  an  integer  variable. 

In  assembly  language,  CDAT1  is  the  variable  value.  The  bit 
definitions  of  IDATA1/CDAT1  are  shown  in  Table  2.2  for  an 
A/D  operation  and  in  Table  2.3  for  a  D/A  operation.  The  bit 
settings  for  the  clock  source  with  either  type  of  operation 
are  shown  in  'table  2.4.  Two  points  should  be  remembered 
when  sotting  these  bits.  First,  it  is  illegal  to  set  the 
bits  lor  Pi’ll  clock  on  a  D/A  operation.  Second,  use  of  the 
pulse  clock  requires  additional  software  and  should  only  be 
attempted  after  consulting  the  SAM  User's  Manual  (p.  4-28) 
for  setup.  Use  of  the  pulse  clock  does  not  affect  the  type 


Bit 

Numbers 

Function 

0 

( ignored) 

1-2 

clock  source 

3 

fixed/alternate  mode 

4 

(set  to  one) 

5-14 

(ignored) 

15 

start  channel 

Table  2.2  Variable  I DATA 1 / CDAT 1  bit  definitions 
for  A/D  operation 


Bit 

Numbers 

Function 

0 

( ignored ) 

1-2 

clock  source 

3-5 

(set  to  zero) 

6-y 

final  channel 

10-11 

(set  to  zero) 

12-15 

start  channel 

Tabic'  2.3  Variable  I  DATA  1/C  DAT  1  bit  definitions 
for  D/A  operation 
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of  S AMGEN  configuration  file  used.  The  user/  however,  must 
generate  an  assembly  language  module  to  trigger  conversions. 
This  module  is  called  in  the  application  program  for  each 
conversion  triggered.  The  bit  settings  for  channel  use  num¬ 
bers  are  shown  in  Table  2.5  for  an  A/D  operation  and  in 
Table  2.6  for  a  D/A  operation. 

A  convenient  method  for  setting  the  bit  values  with 
Fortran  operation  is  to  use  the  .OR.  operator.  The  octal 
values  that  correspond  to  setting  the  required  bits  for 
different  options  are  shown  in  Table  2.7  for  an  A/D  opera¬ 
tion  and  in  Table  2.8  for  a  D/A  operation.  In  addition  to 
setting  the  bits  for  clock  operation,  the  clock  values  shown 
also  set  the  miscellaneous  bits.  The  following  line  of  code 
could  be  used  to  set  I DATA 1  to  collect  sampled  data  on  chan¬ 
nel  10  using  external  clock, 

I DATA 1  =  ( 60000K . OR . 1 000K ) . OR . 1  OK 
The  following  line'  of  code  could  be  used  to  set  IDATA1  to 
output  conversion  data  on  channel  1  using  internal  clock, 

I  DATA 1 =4dOOOK . OR . IK 

For  b/A  operation,  if  alternate  mode  is  not  specified,  fixed 
mode  is  assumed. 
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Start 

Bit  12 

Bit  13 

- 1 

Bit  14 

Final 

Bit  6 

Bit  7 

Bit  8 

0 

0 

0 

0 

0 

0 

Bit  15 


Bit  9 


0 


Channel 

Selected 


Table  2.5  Variable  IDATA1/CDAT1  A/D 
channel  use  bit  settings 


Bit  15 


Start 

Channel 


Bit  3 

Channel 

Mode 

0 

fixed 

1 

alternate 

Table  2.6  Variable  IDATA1/CDAT1  D/A 
channel  use  bit  settings 
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Octal 

Value 


Function 


00000K 

pulse  clock 

20000K 

DCH  clock 

40000K 

internal  clock 

60000K 

external  clock 

0-1700K 

start  channel  0-15 

0-17K 

final  channel  0-15 

Table  2.7  Variable  I DATA 1 / CDAT 1  octal  value 
bit  settings  for  an  A/D  operation 


Octal 

Value 

Function 

04000K 

pulse  clock 

44000K 

internal  clock 

64000K 

external  clock 

10000K 

alternate  channels 

0-1K 

start  channel  0-1 

Table  2 .0  Variable  I DAT A 1 /C DAT 1  octal  value 
bit  settings  for  a  D/A  operation 
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The  variable  IDATA2/CDAT2  also  occupies  one  machine 
word  and  specifies  the  total  conversion  count.  In  Fortran, 
IDATA2  can  be  an  integer  or  an  integer  variable.  In  assembly 
language,  CDAT2  is  the  label  to  the  word  that  contains  the 
variable  value. 

The  variable  IDATA3/CDAT3  specifies  the  data  array  where 
conversion  values  are  held.  In  Fortran,  IDATA3  is  an  integer 
array  and  it  must  be  placed  in  a  labeled  common  block  when 
data  channel  I/O  is  used.  In  assembly  language,  CDAT3  is  a 
label  to  the  storage  area  that  will  hold  conversion  values. 

The  label  name  must  be  the  same  as  that  given  in  the  SAMGEN 
created  coni igurution  file. 


Chapter  3 

Conf iquration  Files 


Program  SAMGEN 

The  SAMGEN  program  is  used  to  build  a  relocatable 
binary  configuration  file  which  is  loaded  with  the  A/D/A 
application  program.  The  configuration  file  defines  to  the 
operating  system  which  hardware  and  operating  modes  will  be 
used . 

SAMGEN  is  a  Fortran  IV  program  in  the  form  of  a  save 
fil<‘.  This  program  will  run  on  an  Eclipse  or  Nova  computer 
in  either  mapped  or  unmapped  environments.  It  is  located 
in  the  SAM  directory  on  DP4F.  SAMGEN  is  an  interactive 
program  that  is  executed  by  name.  It  takes  only  a  few  min¬ 
utes  to  complete  and  is  self-explanatory.  In  addition  to 
producing  a  configuration  .AS  file  for  the  assembler,  SAMGEN 
also  produces  a  configuration  .SR  file  which  summarizes 
answers  to  SAMGEN  guestions.  For  most  data  channel  appli¬ 
cations,  the  only  parameters  needed  to  run  SAMGEN  are  the 
dev i ee- i ds  and  the  name  and  size  of  the  conversion  data  buffers. 

It  is  recommended  that  tin;  configuration  files  be  left 
in  t  ho  SAM  directory  ,.nd  linked  to  the  user's  d  i  rectory  for 
t4.se.  Also,  the  name  given  to  the  configuration  file  should 
be  of  the  torm,  SAMGOfJEIGxx,  where'  xx  is  a  number  unique  from 
other  coin  iquration  fill's  in  the  directory. 

G  imp  1 1  ■  SAMGEN  hln  log 

The  sample  dialog  section  that  follows  was  executed  on 
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the  Kc 1 ipse  computer.  The  SAMGEN  questions  asked  would  be 
similar  for  other  configuration  files  using  data  channel  mode. 

Thu  user  inputs  are  noted  with  the  heading  "User:"  and 
the  system  responses  are  noted  with  the  heading  "System:." 

The  user  inputs  for  this  dialog  are  given  exactly  as  stated 
and  Liu1  symbol  "(CR)"  notes  that  the  user  should  depress  the 
carriage  return.  At  any  time  during  the  dialog,  SAMGEN  can 
be  aborted  by  typing  a  CTRL-A  followed  by  a  carriage  return. 

The  following  commands  get  into  the  SAM  directory  and 
start  up  SAMGEN, 

System:  k 

User:  DIR  DR4F : SAM( CR) 

System:  R 

User:  SAMGEN (CR) 

SAMGEN  will  then  display  an  introductory  message  and  ask 

t.lie  following  question  concerning  the  configuration  file  name, 

System:  Enter  a  (1-10)  character  primary  file  name  for 

this  configuration  file? 

User:  SAM<  'ON  FIG  5  (  CR ) 

I  he  configuration  file  name  can  be  any  valid  RUGS  file 
name,  10  alphanumeric  characters  or  less,  without  an  extension. 
S AMGEN  will  append  .AS  to  the  file  name  for  the  file  to  be 
assembled  and  .SR  to  the  file  name  for  the  file  that  summa¬ 
rises  SAMGEN  dialog.  The  name*  should  Lie  unique  to  the  cur¬ 
rent  direct  cry  cr  else  SAMGEN  wlLl  abort  .  The  dialog  contin¬ 
ues  .IS  1  el  1  ( >ws  , 
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System:  What  type  OS  is  your  Tarqet  system? 


X  0> 


Choices  are: OS  Type:  Response 

Mapped  RDOS  MRD 
Unmapped  RDOS  URD 
NOVA  DOS  URD 
micro  NOVA  DOS  URD 
Unmapped  RTOS  URT 
Mapped  RTOS  MRT 


Type  of  OS? 

User:  MKD(CR) 

System:  How  many  DG/DAC  chassis  (0-4)? 

User:  0(CR) 

System:  Unter  the  entry  name  of  your  SAM  fatal  error 

routine  (up  to  5  characters)  or  type  (CR)  for 
default  routine? 

User:  (CR) 

System:  What  type  of  computer  is  your  target  system? 

MN  -  MicroNOVA 

NE  -  Nova  or  Eclipse 

Enter  ( MN , NE ) ? 

User:  NE(CR) 

System:  How  many  Nova/Eclipse  Analog  Subsystems  (# 

4330-4333)  do  you  have? 

list  •  r  :  1  ( <’H  ) 

System:  What  is  the  device  code  of  A/D  converter  #1? 

('»,  15,  21,  23,  31,  33,  41,  45,  51,  55,  01, 

05,  71) 

User :  2 1 ( CR) 

The  A/D  converter  is  wired  for  device  code  21  octal, 
which  is  a  Unfa  General  standard  for  the  first  stand-alone 
device.  The  device  code  for  the  corresponding  D/A  converter 
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is  always  the  A/L)  code  plus  two,  or  23  in  this  case.  The 
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dialog  continues  as  follows. 

System:  What  mode  will  you  operate  the  A/D  converter 

in? 

AP  -  specifies  Programmed  I/O 

AD  -  specifies  Data  Channel  Transfers 

Enter  ( AP, AD) : 

User:  AD(CR) 

System:  Do  you  have  a  special  interrupt  service  routine 

for  this  A/D  converter? ( Y, N ) : 

User:  N(CR) 

Since  the  Eclipse  is  a  mapped  RDOS  system,  SAMGEN  will 

now  ask  questions  concerning  the  name  and  size  of  the  conver¬ 
sion  data  buffers.  The  name  given  will  be  the  name  used  in 
a  common  block  of  each  application  program  to  align  the  con¬ 
version  dat.a  array  with  the  data  channel  map.  The  size  given 
will  be  the  maximum  size  that  the  conversion  data  array  can 
be  dimensioned  to  in  the  common  block  and,  hence,  specifies 
the  maximum  number  of  conversions  a  single  conversion  opera¬ 
tion  can  handle.  The  data  array  will  be  an  integer  a.rrny 
that  receives  or  sends  the  conversion  values.  SAMGEN  asks 
for  the  A/I)  data  buffer  parameters  first. 

System:  Determine  the  maximum  amount  of  data  you  expect 

to  transfer  in  a  single  request.  Then  specify 
the  number  of  1024  word  blocks  required  to  include 
all  of  that  data. 

Enter  number  of  blocks  :(  1  -  1 1> ) 

User:  n(CK) 

System:  What,  is  the  global  symbol  for  your  data  area? 

(Enter  a  L>  character  symbol) 

User:  I  lUJI-T'  ( PR  ) 
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Now  SAMGEN  asks  for  the  D/A  data  buffer  parameters. 


System:  What  mode  will  you  operate  the  D/A  converter 

in? 

BP  -  specifies  Programmed  I/O 

BD  -  specifies  Data  Channel  Transfers 

Enter  ( BP , BD) ? 

User:  BD(CH) 

System:  Do  you  have  a  special  interrupt  service  routine 

for  this  D/A  converter?(Y,N) :? 

User:  N(CR) 

System:  Enter  the  number  of  blocks: ( 1-16) : 

User:  b  ( CR ) 

System:  What  is  the  global  symbol  for  your  data  area 

(Enter  a  5  character  symbol): 

User:  IBUEO(CR) 

System:  Your  configuration  file  is  called  SAMC0NFIG5 . SR 

Good  luck  with  your  application!  End  of  SAMGEN 
STOP 
R 

A  printout  of  the  configuration  source  file  for  the  pre¬ 
vious  dialog  can  be  obtained  by  typing  the  following  command 
line. 

System:  R 

User:  PRINT  SAMC0NFIG5 . SR ( CR ) 

The  .SR  file  for  the  sample  dialog  is  shown  in  Fig  3-1. 
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The  configuration  .AS  file  can  be  assembled  in  the  SAM 
directory.  The  directions  given  in  Chapter  6  for  assembling 
application  programs  can  be  applied  to  assembling  the  config¬ 
uration  file.  Assembling  the  configuration  file  produces  a 
relocatable  binary  file  which  must  be  loaded  with  the  applica¬ 
tion  program  in  the  RLDR  command  line.  A  link,  such  as  the 
following  for  the  sample  file,  should  be  set  up  in  the  dir¬ 
ectory  that  the  user  will  be  working  in.  Application  pro¬ 
grams  can  then  be  loaded  from  that  directory. 


SAMC0NFIG5.RB 


SAM: SAMC0NFIG5 . RB 


SANG EH  Rev.  2.10  11/27/02  at  19:  0 


Filenaae:  SAHC0HFIC5.SR 


\ 

;Anseers  you  qave  in  the  SANGEH  dialog  are  shoan  in  coeaent  lines. 
;Your  inputs  are  iaaediately  preceded  by  a  colon  (:>  and  appear 
;in  the  saee  order  as  you  qave  thee  to  SANGEH. 

;  Target  operatinq  systea  type  :HRD 
\  Nuaher  of  DG/DAC  4300  chassis  confiqured:  0 
;  Fatal  error  handier  naae  :  *1 
;  Fata)  error  handler  aailboxs  *1 

DCB.X  SAHCO  100  -1  -1 


;  Huaber  of  Analog  Subsystea  :1 


;  A/0  Con.  >1  Device  Code  :21  Node  s AD  Fortran  ID  E  IDS21 

;  Externa)  interrupt  handler  specified  : < NONE > 

;  Nuaber  of  pages  in  Data  Channel  area  :  0 
;  Specifying  a  starting  address  for  Data  Channel  area  :Y 
;  Data  Channel  starting  address  ;IBUFF 


DCB.If 

DBS21 

D.IDF+D. 1HF+D.DCH  21 

DCB.l 

DTS21 

SAINI 

t. 

IBDFF 

DC  B  ?  C 

-1 

-1 

DSS21 

DCT.H 

DTS21 

000377  IHTSA 

DSS21 

DCB.H 

S21 

D.FIF 

21 

00 

AD 

DCB.S 

DBS21 

0 

AD. IS 

AD.  IH 

SAIRT 

DCB.A 

;  D/A  Con.  •! 

Device 

Code 

:23  Node 

:BD 

Fortran  ID  *  IDS23 

External  interrupt  handler  specified  : < HONE > 

Huaber  of  pages  in  Data  Channel  area  :  6 

Specifying  a  starting  address  for  Data  Channel  area  :Y 

Data  Channel  starting  address  :IBUF0 


DCB.H 

D6S23 

D.1DF+D 

.  INF  +  D . 

DCH  23 

DCB.l 

DTS23 

SAIHI 

6. 

IBUF0 

DC  B?C 

-1 

-I  DSS23 

DCT.H 

DTS23 

000377 

IHTSA 

DSS23 

DCB.H 

S23 

D.FIF 

23 

00 

BD 

DCB.S 

DCB.A 

DBS23 

0 

BD.IS 

BD.IH 

SAIRT 

DCB.E 

SAHCEH 

conf iguration 

file. 

Pig  3-1  Sample*  dialog  .  SH  tile 
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Chapter  4 

Fortran  V  Operation 

This  chapter  describes  the  source  code  necessary  to 
operate  the  Eclipse  A/D/A  device  in  Fortran  V  application 
programs.  It  is  divided  into  three  sections  according  to  the 
purpose  of  the  source  code--setup,  initialization,  and  con¬ 
version.  The  SAM  error  codes  for  the  Fortran  error  return 
variables  are  given  in  Table  4.1.  A  sample  program  that 
could  be  used  with  the  conf igurat ion  file  built  in  Chapter  3 
is  given  in  Fig  4-1. 

Setup 

The  source  code  for  a  typical  setup  in  data  channel 

mode  is  shown  below, 

EXTERNAL  IDS21 
EXTERNAL  IDS 2 3 

COMMON  /  IBUFF  /  IDATA3 ( 16384 ) 

COMMON  /  IBUFO  /  IDATO(1024) 

DIMENSION  IORBA( 16 ) 

The  application  program  must  declare  both  device-ids,  even 
if  the  application  program  will  only  use  one  device.  Accord¬ 
ingly,  the  common  block  for  both  the  A/D  and  D/A  data  buffers 
must  be  declared,  even  if  only  one  type  of  conversion  will 
be  performed.  The  data  arrays  in  the  common  blocks  can  be 
dimensioned  less  than  the  number  given  to  SAMGEN  when  creating 
the  configuration  file.  They  must  not,  however,  be  dimensioned 
larger  than  Die  number  given  to  SAMGEN.  The  space  for  the* 
data  butlers  can  be  divided  among  more  than  one  data  array 
as  long  as  Du*  cumulative  space  does  not  exceed  the  number 
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given  to  SAMGEN.  A  single  conversion  operation,  however,  can 
only  operate  on  one  data  array.  The  IORBA  data  array  can  be 
any  integer  data  array  dimensioned  to  at  least  16.  It  is 
used  by  SAM  as  a  scratchpad  for  processing  the  conversion 
operation  that  references  it.  SAM  also  uses  certain  elements 
of  this  array  to  convey  information  concerning  the  status  of 
the  conversion  operation.  This  will  be  discussed  in  the  con¬ 
version  operation  section. 

T  ni t i a  1 i zat ion 

Prior  to  issuing  any  conversion  call,  the  application 
program  must  issue  the  DSTRT  call  shown  below, 

CALL  DSTRT(IER) 

The  variable  IER  is  the  standard  Fortran  error  return  vari¬ 
able.  This  call  initializes  the  operating  system  for  conver¬ 
sion  operations.  It  can  be  located  anywhere  in  the  applica¬ 
tion  program  before  the  first  conversion  call,  but  must  be 
given  only  once  in  the  same  application  program. 

Convers i  <  m 

The  IK)1T|./W|  call  is  used  to  request  a  conversion  oper¬ 
ation.  It  has  the  basic  form  shown  below, 

CALL  DOITl/W]  ( IORBA, device- id , H , IDATA1 , I DATA 2 , IDATA3 , I HR ) 
Thu  call  lias  t  wo  forms--DOIT  oi'  DOITW.  The  DOITW  call  is 
used  to  halt  program  control  until  the  operation  requested  is 
completed.  Tin*  DOIT  call  is  used  to  instigate  the  operation 
and  returns  program  control  immediately.  With  this  call,  the 
DKLi’l  /w  |  call  must  be  used  later  in  the  program  to  determine 
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if  the  conversion  operation  has  completed.  The  device-id  is 
IDS21  for  an  A/D  operation  and  IDS23  for  a  D/A  operation. 

The  variables  IDATA1 ,  IDATA2,  and  IDATA3  must  be  specified 
as  given  in  Chapter  2.  The  variable  IER  is  the  standard 
Fortran  error  return  variable.  The  value  of  I0RBA(14)  should 
always  be  checked  after  completion  of  a  DOIT[/W]  call  in  data 
channel  mode  to  determine  if  an  external  interrupt  or  if  a 
clock  overrun/underrun  occurred.  The  IER  variable  will  not 
return  an  error  for  either  of  these  two  conditions.  On  a 
normal  return,  all  the  bits  of  I0RBA(14)  should  be  zero  ex¬ 
cept  bit  1.  This  will  give  a  value  of  40000K  to  I0RBA(14). 

If  an  external  clock  interrupt  occurred  which  caused  proces¬ 
sing  to  be  aborted  before  the  conversion  operation  was  com¬ 
pleted,  then  bit  0  of  I0RBA(14)  will  be  set  to  one.  If  a 
clock  overrun  occurred  on  an  A/D  operation  or  a  clock  under- 
run  occurred  on  a  D/A  operation,  then  bit  8  of  I0RBA(14)  will 
be  set  to  one.  If  I0RBA(14)  returns  a  value  that  does  not  in¬ 
dicate  a  normal  return  or  either  of  these  two  error  conditions, 
t  he  conversion  data  should  be  checked  if  possible  to  determine 
it  it  is  plausible.  The  SAM  User's  Manual  (p.  4-29,34)  does 
not  cover  "non-normal"  returns  other  than  the  two  given. 

'I  tu'  DRIl’l/W]  call  is  used  to  check  for  completion  of  a 
DOIT  conversion  operation.  It  has  the  basic  form  shown  below, 
CALL  L)KEC[/W]  ( IORBA ,  I ER  ) 

The  call  has  two  £orms--DKEC  or  DKECW.  The  DKECW  call  is 
used  to  halt  program  control  until  the  DOIT  conversion  opera¬ 
tion,  with  the  IORBA  array  referenced,  is  completed.  The 
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DREC  call  is  used  only  to  check  the  current  status  of  the 
conversion  operation.  If  the  operation  is  completed,  then 
the  DREC  call  places  a  non-zero  value  in  I0RBA(6).  If  the 
operation  has  not  completed,  then  the  DREC  places  a  value  of 
zero  in  I0RBA(6).  A  guide  illustrating  the  different  DOIT[/W] 
and  DRECf/W]  combinations  is  given  in  Fig  4-2. 


Value 

Meaning 

2179 

No  -  LNK  routine  in  DCB,  invalid  DCB  Often 
results  from  an  invalid  device-id,  so  check  the 
device-ids.  The  first  two  characters  are  ID.  the 
third  either  S,  A.  or  0.  and  the  last  two  arc 
numbers  (e  g..  IDS21). 

2180 

No  DCB  identifier  in  IORB,  invalid  DCB. 

Same  cause  as  2179. 

2181 

Not  used.  This  error  should  not  occur. 

2184 

No  initializing  routine  for  a  device  that  needs 
initialization  Same  cause  as  2 1 79. 

2185 

Output  requested  to  a  channel  for  an  illegal 
device  (e  g  .  output  to  an  A/D  converter). 

2186 

Attempt  to  set  up  a  locked  IORB  arrav  This 
can  happen  if  a  second  DSAN/DSOR  call  uses 
the  same  IORB  arra>  argument  before  the 
original  DSAN/DSOR  completes. 

2187 

Unable  to  find  free  IORL  L|  n:k  in  IORB 
arrav  Can  happen  if  the  IORB  array  was 
DIMFNSIONcd  too  small.  A 
multiple-operation  call  needs  8  elements  +  8 
elements  per  operation. 

2188 

No  DCB  exists  with  specified  device-id.  Same 
cause  as  2 1 79. 

2189 

Attempt  to  use  unsupported  feature  (e  g  ., 
mapped  call  in  unmapped  system). 

2190 

Attempt  to  return  bad  buffer.  Will  never  occur. 

2191 

An  IDATAx  argument  gave  an  illegal  clock 
selling  for  an  A/D  or  D/A  converter. 

Table  4.1  SAM  Fortran  error  codes 

(SAM  User's  Manual,  p.  6-9 


Value 

Meaning 

2192 

Illegal  conversion  count  -•  more  than  255  or  less 
than  1  --  for  an  A/D  converter  mode  in  A2; 
DG/DAC  only 

2193 

Assembly  language  only  Attempt  to  move  data 
channel  map  while  lORB  is  locked  A  task 
tried  to  change  the  map  while  a  request  was 
using  the  window. 

2194 

Attempt  to  move  data  channel  map  to  an 
address  outside  the  window. 

2195 

Illegal  conversion  count  less  than  1  or  more 
than  the  device  allows. 

2196 

Interrupt  occurred  from  4222  without  a  strobe 
or  latch  change. 

2197 

Assembly  language  only .  Attempt  to  use  data 
channel  map  w  hile  it  is  being  initialized  or 
moved. 

2198 

Assembly  language  only.  Data  channel  not 
initialized;  use  an  RMAPcall  before  issuing 
this  mode  A2  request. 

2199 

SAM  panic  code.  SAM  could  not  transmit 
(IXMT)  ;o  the  calling  task  on  IORB  array 
completion.  SAM  aborts  the  program  unless 
you  set  up  a  fatal  error  handling  RECcive  task 
and  gave  its  name  to  SAMGEN,  as  described 
in  Chapter  5,  “Initial  Dialog". 

2200 

External  interrupt  occurred  on  a  stand-alone 
analog  converter,  aborting  the  request  This 
error  returns  from  ISA  calls  only,  not  from 
DSAN/DSOR  calls 

Table  4.1  continue 
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C  This  proqrae  mil  collect  and  then  output  5120  data  saeples 
C  usinq  the  Eclipse  A/D/A  device. 

EXTERNAL  IDS21  {setup  code 
EXTERNAL  1DS23 

C0NN0N  /  1BUFF  /  IDATA3I5120) 

COMMON  /  1BUF0  /  IDATO ( 5120) 

DIMENSION  lORBA(H) 

* 

CALL  DSTRT(IER)  {aleays  initialize  device 
IF  (IER.NE.l)  CALL  ERROR C'DSTRT") 

I  DAT A 1  =  60000K  ;external  clock  and  channel  0  (A/D) 
1DATA2:5120 

TYPE  “Press  carriaqe  return  to  beqin  A/D“ 

ACCEPT 

CALL  D0ITU( IQRBA ,IDS21 ,8 ,IDATA1 ,  IDATA2, IDATA3)  {A/D 

IF  (IER.NE.l)  TYPE  “DOIT  error  ",IER 

IF  ( I0RBA( 14 )  .NE.40000K)  URITEt  10,1 )  IORBA(M) 

1  F0RHAT(“10RBA<14):  “,08) 

DO  25  1=1,5120  {load  saepled  data  into  D/A  array 
IDATQ(1)=1DATA3(1) 

25  CONTINUE 

IDATA1S84Q00K  {external  clock  and  channel  0  (D/A) 

TYPE  "Press  carriaqe  return  to  beqin  D/A“ 

ACCEPT 

CALL  DQITN ( IQRBA/IDS23 ,8 , 1  DAT A 1 ,IDATA2,IDAT0,IER)  ;D/A 

IF  (IER.NE.l)  TYPE  "DOIT  error  ",1ER 
IF  (IORBA(H)  «NE .40000X1  URITE(10,1)  I0RBA(  14) 

CALL  EXIT 
END 


Fig  4-1  Sample  Fortran  A/D/A  program 
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D-A124  750  EXPANSION  OF  THE  ECLIPSE  DIGITAL  SIGNAL  PROCESSING 

SVSTENCU)  AIR  FORCE  INST  OF  TECH  URIGHT-PATTERSON  AFB 
OH  SCHOOL  OF  ENGINEERING  G  R  ALLEN  DEC  82 
UNCLASSIFIED  AFIT/GE/EE/82D-16  .F/G  9/2 
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Fig  4-2  DOIT[/W]  and  DREC[/W]  options 
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Chapter  5 

Assembly  Language  Operation 


This  chapter  describes  the  source  code  necessary  to 
operate  the  Eclipse  A/D/A  device  in  Data  General  assembly 
language.  It  is  divided  into  three  sections  according  to  the 
purpose  of  the  source  code--setup,  initialization,  and  con¬ 
version.  The  SAM  libraries  provide  various  macros  that  make 
operating  the  device  at  the  assembly  language  level  much 
easier.  A  macro  is  a  predefined  section  of  code  and  in 
this  chapter  it  is  used  in  a  manner  similar  to  a  Fortran 
subroutine.  The  Models  4330-4333  Programmer's  Reference 
should  be  consulted  for  operating  the  device  in  assembly 
language  without  the  macros  described  in  this  chapter.  The 
SAM  error  codes  for  assembly  language  error  return  messages 
are  given  in  Table  5.1.  A  sample  program  that  could  be  used 
with  the  configuration  file  built  in  Chapter  3  is  given  as 
Appendix  A.  Throughout  this  chapter1,  references  will  be 
made  to  SAM  Fortran  subroutines.  This  is  done  for  further 
clarification,  since  it  is  assumed  that  most  users  will  op¬ 
erate  the  device  at  the  Fortran  level  first.  This,  of  course, 
is  not  required. 

Setup 

Shown  on  the  next  page  is  the  source  code  for  a  typical 
setup  in  data  channel  mode. 
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.ENT  I BUFF  } declare  the  A/D  data  buffer 

.ENT  IBUFO  ; declare  the  D/A  data  buffer 

.  ZREL 
RECW  0 

.  NREL 

I ORB  .  . BLK  10 

STACK  . BLK  40 

I BUFF  .BLK  12000  ; set  aside  6KW  for  A/D  storage 

IBUFO  .BLK  12000  ; set  aside  6KW  for  D/A  storage 

The  application  program  must  declare  both  the  A/D  and  D/A 
data  buffer  names  given  to  the  SAMGEN  program  with  the  .ENT 
statement.  This  allows  the  operating  system  to  access  the 
conversion  storage  area  in  the  application  program.  Accord¬ 
ingly,  both  data  buffer  names  must  appear  in  the  program  and 
label  the  areas  that  will  be  used  for  conversion  data  storage. 
The  .BLK  statement  can  be  used  to  set  aside  the  storage  area 
up  to  the  limit  specified  in  the  SAMGEN  created  configuration 
file.  The  IORB  variable  is  an  eight-word  block  that  holds 
the  parameters  for  a  conversion  operation.  The  STACK  variable 
is  a  32-word  block  that  is  used  by  SAM  as  a  scratchpad  to 
process  a  conversion  operation.  The  RECW  variable  is  used 
to  indicate  when  a  conversion  operation  is  completed.  Each 
separate  single-operation  conversion  reguest  must  have  its 
own  IORB,  STACK,  and  RECW  setup. 


Initialization 

Prior  to  issuing  any  conversion  call,  the  application 
program  must  issue  the  S.STR  macro  shown  below, 

S . STR  STACK 

JMP  ERR1  ; to  handle  error  return 

JMP  CONTI  ; to  continue  processing 

This  call  initializes  the  operating  system  to  the  device  and 

is  similar  in  function  to  the  Fortran  DSI'HT  call.  Program 
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control  is  returned  to  the  location  immediately  following  the 
macro  on  an  error  return.  The  error  code  is  contained  in 
accumulator  2.  For  a  normal  return,  program  control  is  re¬ 
turned  to  the  location  immediately  following  the  macro  plus 
one . 

Conversion 

Performing  a  conversion  operation  in  assembly  language 
that  is  similar  to  the  Fortran  DOIT  call,  is  a  two-step  proc¬ 
ess.  First,  the  parameters  of  the  conversion  call  are  placed 
in  the  IORB  block  with  the  S.SET  macro.  Then,  either  the 
S.DOR  or  S.DAN  macro  can  be  used  to  initiate  the  single-oper¬ 
ation  request.  The  S.DAN  macro  has  been  chosen  to  be  used 
for  the  purpose  of  illustration.  The  basic  form  of  the  S.SET 
macro  is  shown  below, 

S.SET  IORB, 0, device-id, CDAT1 ,CDAT2,CDAT3 

The  device-id  is  IDS21  for  an  A/D  operation  and  IDS23  for  a 
D/A  operation.  The  variables  CDAT1 ,  CDAT2 ,  and  CDAT3  must  be 
specified  as  given  in  Chapter  2.  The  basic  form  of  the  S.DAN 
macro  to  initiate  the  conversion  operation  is  shown  below, 
S.DAN  IORB, RECW, STACK 

JMP  ERR2  ;to  handle  error  return 

JMP  C0NT2  ?to  continue  processing 

As  with  the  S.STR  macro,  program  control  is  returned  to  the 

location  immediately  following  the  S.DAN  macro  on  an  error 

return.  The  error  code  is  contained  in  accumulator  2.  For 

a  normal  return,  program  control  returns  to  the  location 

immediately  following  the  macro  plus  one.  Completion  of  the 

conversion  operation  is  dehorr  ii.>  3  by  cheeking  '..he  si  .bn,.-. 


of  the  variable  RECW.  When  the  operation  is  completed,  SAM 
places  a  non-zero  value  in  RECW. 

As  is  the  case  with  Fortran  operation,  the  error  return 
will  not  indicate  if  an  external  interrupt  or  a  clock  overrun/ 
underrun  occurred.  Either  of  these  conditions  may  make  the 
conversion  data  invalid.  The  CDAT1  word  can  be  checked  to 
determine  if  either  of  these  conditions  occurred.  On  a  normal 
return,  all  of  the  bits  of  CDATl  are  zero  except  bit  1.  If 
an  external  interrupt  occurred  which  caused  processing  to  be 
aborted  before  the  conversion  operation  completed,  then  bit  0 
of  CDATl  will  be  set  to  one.  If  a  clock  overrun  occurred  on 
an  A/D  operation  or  a  clock  underrun  occurred  on  a  D/A  opera¬ 
tion,  then  bit  8  of  CDATl  will  be  set  to  one. 

Program  control  can  be  held  up  until  the  conversion 
operation  is  completed,  as  is  done  with  the  Fortran  DOITW 
call,  by  using  the  .REC  macro.  The  basic  setup  for  the 
.REC  macro  is  shown  below, 

\ 

. EXTN  . REC 

.  ZREL 

PREC  RECW 

.  NREL 

LDA  0 , PREC 

.REC 

The  address  of  the  RECW  word  is  placed  in  accumulator  0  and 
the  macro  .REC  is  called.  Program  control  is  then  held  at 
the  location  of  .REC  until  the  conversion  operation  refer¬ 
enced  with  the  PREC  word  is  completed.  The  value  of  the  word 
at  label  RECW  should  be  0  prior  to  the  .REC  call. 


Value  =  mnemonic 

Meaning 

4200  =  DER00 

No  -.LNK  routine  in  DCB, 
invalid  DCB.  Could  be  an 
invalid  (mistyped) 

SAMGEN  device-id.  All 
device-ids  begin  with  the 
letters  ID.  followed  by  S.  A, 
or  0.  followed  by  two 
numbers. 

4201  =  DEROI 

No  DCB  identifier  in 

IORB,  invalid  DCB.  Same 
cause  as  4200. 

4202  =  DER02 

Not  used.  This  should  not 
occur. 

4205  =  DER05 

No  initialization  routine  for 
a  device  that  needs 
initialization.  Same  cause 
as  4200. 

4206  =  DER06 

Output  requested  to  a 
channel  for  an  illegal  device 
(e  g  .  output  to  an  A/D 
converter). 

4207  =  DER07 

FORTRAN  only.  Attempt 
to  set  up  a  locked  IORB 
array. 

4210  =  DERI0 

FORTRAN  only.  Unable 
to  find  free  IORB  in  IORB 
array. 

4211  -  DERI! 

No  DCB  exists  with 
specified  device-id.  Same 
cause  as  2179. 

4212  =  DERI2 

Attempt  to  use  unsupported 
feature  (e  g  ,  mapped  call  in 
unmapped  system). 

4213  =  DERI3 

Attempt  to  return  bad 
buffer.  Will  never  occur. 

4214  =  DERI4 

_ 

Illegal  clock  setting  for  an 

A/D  or  D/A  converter. 

Table  5.1 


SAM  assembly  language  error  codes 
(SAM  User's  Manual,  p.  9-4) 


Value  =  mnemonic 

' 

Meaning 

4215  =  DERIS 

illegal  conversion  count  - 
more  than  377,  or  less  than 

1  for  an  A/D  converter 
mode  A2;  DG/DAC  only. 

4216  =  DER16 

Attempt  to  move  data 
channel  map  while  IORB  is 
locked.  A  task  tried  to 
change  the  map  while  a 
request  was  using  the 
window. 

4217  =  DER17 

Attempt  to  move  data 
channel  map  to  an  address 
outside  the  window. 

4220  =  DER20 

Illegal  conversion  count, 
less  than  1  or  more  than  the 
device  allows. 

4221  =  DER2I 

Interrupt  occurred  from 

4222  without  a  strobe  or 
latch  change. 

4222  *  DER22 

Attempt  to  use  data 
channel  map  while  it  is 
being  initialized  or  moved. 

4223  =  DER23 

Data  channel  not 
initialized;  use  an  RMAP 
call  before  issuing  this 
mode  A 2/ AD  request. 

4224  =  DER24 

SAM  panic  code.  SAM 
could  not  transmit 
(.IXMT)  to  the  calling  task 
on  IORB  array  completion. 
SAM  aborts  the  program 
unless  you  set  up  a  fatal 
error  handling  RECeive 
task  and  gave  its  name  to 
SAMGEN,  as  described  fn 
Chapter  5,  "Initial  Dialog". 

4225  =  DER25 

ISA  calls  only.  External 
interrupt  occurred  on  a 
stand-alone  analog 
converter,  aborting  request. 

Table  5.1  continue 
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Chapter  6 

Running  Application  Programs 


This  chapter  describes  how  to  compile  and  load  SAM  ap¬ 
plication  programs  on  the  Eclipse  computer.  The  RDOS  commands 
given  in  this  chapter  should  only  be  typed  when  the  system  R 
prompt  is  given  on  the  screen.  The  "(CR)"  denotes  that  the 
user  should  depress  the  carriage  return  and  "program"  denotes 
the  user's  program  name. 

Compiling 

Compiling  a  SAM  Fortran  V  application  program  is  identi¬ 
cal  to  compiling  the  usual  Fortran  V  program.  The  directory 
must  contain  the  necessary  files  or  links  to  them  for  Fortran  V 
compiling.  The  following  command  line  will  compile  the  appli¬ 
cation  program, 

FORTRAN  program 

The  following  files  are  required  to  assemble  a  SAM 

assembly  language  application  program, 

MAC . SV , NBI D . SR , OS I D . SR , NEI D . SR , ARDOS . SR , PARU . SR 
and  SAMPARS . SR 

All  of  the  above  files  are  or  should  be  in  the  SAM  directory. 
Links  can  be  made  to  any  of  these  files  that  are  not  contained 
in  the  directory  that  the  user  will  be  working  in.  The  com¬ 
mand  line  given  below  will  assemble  the  application  program. 

MAC  NBID/S  OSID/S  NEID/S  ARDOS/S  PARU/St(CR) 

SAMPARS/S  program(CR) 

The  symbol  "T"  is  used  in  the  previous  command  line,  since 
it  is  the  correct  syntax  for  continuing  an  RDOS  command  on 
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the  next  line.  The  command,  however,  can  be  typed  on  a  single 
line  if  it  fits. 

To  lessen  the  effort  in  assembling  an  application  pro¬ 
gram,  an  indirect  file  named  SAMASSM  has  been  created  and 
placed  in  the  SAM  directory.  It  contains  the  parameter  files 
as  typed  in  the  previous  command  line.  Using  this  indirect 
file,  the  previous  command  line  can  be  given  as  shown  below, 

MAC  @SAMASSM@  program 

As  is  the  case  with  all  indirect  files,  SAMASSM  can  be 
linked  to  the  directory  that  the  user  will  be  working  in. 
However,  links  to  the  files  contained  in  an  indirect  file 
must  still  be  made. 

Loading 

The  files  given  below  are  reguired  to  load  the  applica¬ 
tion  program. 

samconf ig , SAMF5E . LB , SAME . LB , TFLI B 
The  file  "samconfig"  denotes  the  user's  relocatable  binary 
configuration  filename.  The  other  files  are  or  should  be  in 
the  SAM  directory.  Links  can  be  made  to  any  of  these  files 
that  are  not  contained  in  the  directory  that  the  user  will  be 
working  in.  The  command  line  given  below  will  load  the  appli¬ 
cation  program. 

RLDR/P  2/K  program  config  samconfig  subroutines  1  (CR) 
SAMF5E.LB  SAME. LB  ©TFLIB@ 

In  the  previous  command  line,  "subroutines"  denotes  where 
any  user  subroutines  should  be  loaded.  The  P  switch  is 
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optional.  If  it  is  attached,  the  load  addresses  for  the 
various  modules  in  the  program  are  given  in  octal  format. 

The  2/K  switch  is  required  and  creates  a  second  task.  The 
SAM  package  is  designed  for  a  multitask  environment  and  re¬ 
quires  at  least  one  more  task  than  the  program  uses. 

To  lessen  the  effort  in  loading  an  application  program, 
an  indirect  file  named  SAMLIB  has  been  created  and  placed  in 
the  SAM  directory.  It  contains  the  library  and  TFLIB  files 
as  typed  in  the  above  command  line.  Using  this  indirect  file 
the  previous  command  line  can  be  given  as  shown  below, 

RLDR/P  2/K  program  samconfig  subroutines  @SAMLIB@ 

Every  application  program  will  generate  an  "XN  I43RT" 
error  on  the  load  command.  This  is  because  the  samconfig 
file  is  requesting  software  to  handle  an  A/D/A  device  other 
than  the  model  4331.  Since  the  device  that  the  samconfig 
file  is  requesting  information  for  is  not  in  the  system  and 
will  not  be  called  upon,  this  error  message  can  be  ignored. 
This  is  the  only  error  message  from  the  load  command  that 
can  be  ignored. 


This  prograa  will  collect  and  then  output  5120  data 
sawples  using  the  Eclipse  A/D/A  device.  It  is 
siailiar  in  operation  to  the  saaple  Fortran  A/D/A 
prograa,  except  that  the  user  cannot  initiate 
both  conversion  operations.  The  user  can  only 
initiate  the  A/D  operation  by  turning  the  external 
clock  on  when  it  is  desired  to  begin  collecting 
data.  The  CDAT1  variable  for  both;  the  A/D 
and  D/A  operation,  has  been  set  for  external 
clock  and  channel  0. 


.ENT 

IBUFF 

.ENT 

IBUFO 

.EXTH 
•  ZREL 

.REC 

PBEG: 

BEG 

{addresses 

PBYE: 

BYE 

PADO: 

ADO 

PDAO: 

DAO 

PERI: 

ER1 

PER2: 

ER2 

PER3: 

ER3 

PIBUF: 

IBUFF 

P1BUI); 

IBUFQ 

PREC: 

RECU 

RECU: 

0 

CDAT2: 

12000 

{conversion  count 

ZERO: 

0 

.ER: 

ERROR 

{juap  locations 

•BNOC: 

BNOC 

.C"'R: 

CHAR 

•HULN: 

NULN 

•HSSG: 

HSSG 

.NREL 

• 

* 

Hain 

prograa 

START:  LDA  0,PBEG  {send  startup  aessage  to  screen 

JSR  0.HSSG 

JSR  8.NULN 


S.STR 

STACK 

{initialize  the  device 

JHP 

ERR1 

{error  return  will  have  error 

code 

in  AC2. 

S.SET 

10RB,0, 

IDS21 , 60000, CDAT2, IBUFF  {setup 

the 

A/D 

LDA 

0 ,PAD0 

{send  A/D  aessage  to  screen 

JSR 

6. HSSG 

JSR 

& .NULN 

S.DAN 

I0RB,RECU, STACK  {initiate  the  A/D 

JHP 

ERR2 

{error  return  nil)  have  error 

code 

in  AC2. 
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O/PREC  {»ait  for  the  A/D  to 
{coeplete. 


LDA 

.REC 


JHP  • +4  {load  the  saepled  data  into 
ADDR1:  0  {the  D/A  data  array 

ADDR2:  0 

COUN:  0 

LDA  0/PIBUF 

STA  0, ADDR1 

LDA  0  >PIBUQ 

STA  0;ADDR2 

LDA  3,CDAT2 

STA  3;C0UH 

LDA  3  j&ADDRi 

STA  3,8ADDR2 

ISZ  ADDR1 

1SZ  ADDR2 

DSZ  COUN 

JHP  .-5 

LDA  0,ZER0  {zero  the  status  «ord 

STA  OfRECU 

S.SET  IORB,O,IDS23/64O00,CDAT2,IBUF0  {setup  the  D/A 

LDA  OjPDAO  {send  D/A  tessage  to  screen 
JSR  I.HSSG 

JSR  6.NULN 

S.DAN  IORB,RECW, STACK  {initiate  the  D/A 

JHP  ERR3 

LDA  0,PREC  {sait  for  the  D/A  to 

•REC  {complete 

LDA  0;PBYE  {send  exit  uessage  to  screen 

JSR  S.HSSG 

JHP  DONE 

ERR1:  LDA  0/PER1  {send  error  eessage  to  screen^ 

JHP  NUHB 


ERR2:  LDA  0,PER2 

JHP  NUHB 


ERR3:  LDA  0,PER3 

NUHB:  JSR  8.HSSG 

HOV  2/0  {get  error  code  fro»  AC2 
JSR  8.BNOC 

DONE:  JSR  NULN 

•STSTH 
•  RTN 

JHP  8.ER 
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LC 


l- 


ft  9' 


ft 

* 

The  NULN 

routine 

ft 

y 

the  next 

line* 

NULN: 

JHP 

.♦4 

S  TOR 1 : 

0 

CRs 

15 

ML: 

12 

STA 

3,STQR1 

LDA 

0,CR 

JSR 

8. CHAR 

LDA 

0,NL 

JSR 

8, CHAR 

JHP 

8ST0R1 

• 

f 

The  CHAR 

routine 

« 

y 

has  been 

placed 

• 

y 

contents 

of  AC3 

CHAR: 

JHP 

.♦2 

STOR2: 

0 

STA 

3/ST0R2 

.SYSTH 

•PCHAR 

JHP 

8.ER 

JHP 

8ST0R2 

• 

y 

The  HSSG 

routine 

• 

y 

created 

with  the 

> 

The  label  for  th 

« 

ACO. 

HSSG: 

JHP 

.+4 

ST0R3: 

0 

ST0R4: 

0 

WORD  : 

177 

STA 

3,ST0R3 

STA 

0,ST0R4 

LDA 

0,8ST0R4 

LDA 

3 ,U0RD1 

AND 

0  ,3 r SNR 

JHP 

.  +  12 

JSR 

8. CHAR 

LDA 

0,l»ST0R4 

HOVS 

0,0 

LDA 

3  ,  WGRD1 

AND 

0,3, SNR 

JHP 

.♦4 

JSR 

8. CHAR 

1SZ 

ST0R4 

JHP 

HSSG+6 

JHP 

8ST0R3 

• 

y 

The  BNOC  routine 

i 
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y 

% 

♦ 


placed  in  ACO  to  ASCII  character  string  for  output 
The  ASCII  string  is  output  in  reversed  order* 


BNOC: 

JHP 

.+7 

ST0R5: 

0 

ST0R6: 

0 

SIX: 

6 

COUNT: 

0 

U0RD2: 

7 

WORD  3 : 

60 

STA 

3,STQR5 

STA 

0  ,STQR6 

LDA 

0,SIX 

STA 

O/COUN 

LDA 

0,H0RD2 

LDA 

3,STQR6 

AND 

3,0 

LDA 

3/U0RD3 

ADD 

3,0 

JSR 

8.  CHAR 

LDA 

0 ,ST0R6 

HOVZR 

0,0 

HOVZR 

0,0 

HOVZR 

0,0 

STA 

0,ST0R6 

DSZ 

COUN 

JHP 

BN0C+I3 

JHP 

0STOR5 

• 

Storage  space 

ER1: 

.TXT 

•S.STR  ERROR 

:  * 

ER2: 

.TXT 

•S.DQR  ERROR 

(A/D):  » 

ER3: 

.TXT 

•S.DOR  error 

(D/A) :» 

BEG: 

.TXT 

•Hello* 

BYE: 

.TXT 

•Good  Bye> 

ADO: 

.TXT 

•  --  A/D  --* 

DAO: 

.TXT 

*  --  D/A 

IORB: 

•  BLK 

10 

STACK: 

.BLK 

40 

IBUFF: 

.BLK 

12000 

IBUFO: 

.BLK 

12000 

;  Error  return 

ERROR:  .SYSTH 
.ERIN 

JHP  6.ER 


.END  START 
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Eclipse  A/D/A  Device 
Extended  Memory  Data 
Collection  Measurements 


Background 

There  is  a  limit  on  the  number  of  data  samples  that 
the  Eclipse  A/D/A  device  can  collect  on  a  single  A/D  call. 

This  limit  is  due  to  the  size  of  the  A/D  data  buffer.  Sam¬ 
ples  are  lost  during  the  time  it  takes  to  remove  data  from 
this  buffer  and  issue  another  conversion  call.  The  fastest 
method  of  moving  data  on  the  Eclipse  is  with  the  extended 
memory  feature.  With  this  feature  data  is  not  physically 
moved,  address  registers  are  simply  changed.  Program  SPEECH 
will  be  used  to  collect  data  in  long  mode  operation  and  the 
remap  intervals  will  be  noted. 

Purpose 

The  purpose  of  this  test  is  to  determine  the  number  of 
sample  points  lost  between  remap  operations.  The  affect  of 
activity  on  the  opposite  ground  will  also  be  noted. 

Pretest 

Since  a  linear  test  signal  will  allow  the  delta  voltage 
between  samples  to  be  easily  seen,  a  triangle  wave  will  be 
used  as  the  test  signal. 

To  best  illustrate  the  time  lost  during  a  remap  opera¬ 
tion,  the  sampling  rate  will  be  set  near  maximum.  From  the 
Technical  Reference  of  Analog  Data  Subsystems,  Models  4330-4333, 
p.  7,  the  maximum  A/D  conversion  rate  is  given  as  22KKz  (45.4 

microsec)  .  The  test  signal  will  W>  carpi-  -4  *  2 1  1  47 . 0 
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microsec) . 

A  plot  routine  will  be  used  that  can  plot  a  maximum  of 
512  points.  The  signal  frequency  will  be  set  at  a  rate  which 
will  collect  512  samples  on  a  single  peak-to-peak  swing,  that 
is,  one-half  of  a  period.  The  test  signal  period  to  allow 
this  can  be  calculated  as  follows, 

47.6  microsec/pts  *  1024  pts  =  48.76  msec  (20.51Hz) 

The  test  signal  frequency  will  be  set  to  20Hz,  which  will 
closely  satisfy  the  above  condition  and  certainly  satisfy 
the  Nyquist  sampling  condition. 

The  test  signal  and  clock  signal  to  be  used  are  shown 

below, 


clock  s i on a  1 


An  oscilloscope  will  be  used  to  view  both  signals  with 
the  settings  as  below, 

distance  scale  value 

clock:  4.76  cm  *  10  microsec/cm  =  47.6  microsec  (21KHz) 

signal:  5.0  cm  *  10  msec/cm  =  50.0  msec  (20Hz) 

A  frequency  counter  will  be  used  to  verify  the  above  frequen¬ 
cies. 


Test  Equipment 

PME  I.D. 
Number 

Oscilloscope , 
Ballantine  • 

49100/ 

4H5627 

Frequency 
Counter , 

HP  5326A 
Counter-Timer 

49100/ 

4H6122 

External 

Clock, 

Wavetek 

Generator 

49100/ 

4H6222 

Test 

Signal , 

Wavetek 

Generator 

49100/ 

4H6008 

Date  of  Date  of 

Cal .  Recal ♦ 

27  Jul  82  14  Nov  82 

28  Jul  82  25  Nov  82 


22  Mar  82  22  Mar  83 


19  Nov  81  19  Nov  82 


Test  Comments  and  Results 

1.  Test  equipment  settings  were  set  as  described  in  Pre¬ 
test  and  frequency  settings  were  verified  with  a  fre¬ 
quency  counter. 

2.  Program  SPEECH  was  executed  on  the  background  in  long 
mode  operation  and  throe  data  files  were  collected 
under  the  following  conditions, 
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DATA1 :  foreground  inactive  (CTRL-F) 

DATA2 :  foreground  active  and  idle 

DATA3:  foreground  active  and  compiling  a  program 

3.  The  three  data  files  were  changed  from  two's  complement 

data  to  real  number  data  with  program  CNVRT.  The  new  data 

files  were  named  as  follows, 

TEST!)  AT  A 1 :  DATA  1  converted 
TESTDATA2:  DATA2  converted 

TESTDATA3 :  DATA 3  converted 

4.  Program  PLOT  was  used  to  view  the  remap  regions  in  the 
TESTDATAx  files. 

5.  The  freguency  of  the  external  clock  generator  was  slightly 
readjusted  between  test  runs  one  and  two. 


Conducted  by: 


Lt  Allen 


or>o  n  o  o  o  o  o  r>o  o  o  noon  ooono  non 


CHHtHHIOHHHHHHHHHHmmHHHHIOOHHHiHKHitHHIiHiH 

Title:  Speech 
Author:  Lt  A1 ten 
Date:  Dec  82 

Function: 

This  is  the  central  program  of  a  six-program  package  that  utilizes 
the  Eclipse  A/D/A  device  to  work  with  speech  data  files.  This  is 
an  interactive  software  package  that  allows  the  user  to  collect* 
edit*  and  play  back  speech  data  files. 

Environment: 

This  is  a  Fortran  V  program  that  has  been  desigined  to  run 
on  a  mapped-RDOS  Eclipse  S  /  2 1>  0  winicoaputer  -equipped  with  a 
aodel  4331  single  board  converter. 

Compile  command: 

FORTRAN  SPEECH 

Load  command: 

RLDR/P  SPEECH  H HU  SC R  8FLIB8 
Comments: 

Refer  to  lines  30  and  47  of  the  program  text  for  information 
explaining  the  operation  of  this  package. 

The  term  "block"  is  used  throughout  the  program  text  to  refer 
to  a  disk  block  (a  disk  block  contains  256  bytes). 

OHMIliltmiilHHOmtHOHimmiimmilOHIMHIHiHIHHIlOO 

INTEGER  OPTION  * HENU2  * HENU3 ,nENU4 , WENU5 
INTEGER  WQRK( 15972) 

INTEGER  EDBUF,DTBUF, EMPTY, FULL 
INTEGER  FILENAIK7) , STATUS (18) 

INTEGER  NUMBLK * F I RBLX * STBLK * BLKLEFT ,READBLK ,DBLKS,FBLKS,UBLXS 
INTEGER  H0DE  *  SHORT *L0NG 

DATA  EDBUF,DTBUF, EMPTY, FULL, SHORT, LONG  /  3*0, 2x1, 2  / 

DATA  WORK  /  15872x0  7 

CALL  NEWSCR  ;erase  the  screen 

Erase  files  that  may  have  been  left  from  a  previous  abort. 

CALL  DFILHC'DIGI ,DT“ *IER) 

CALL  DFILWf “DIGI .ED" ,IER) 

CALL  DFILUC'DIGI ,0U" ,IER ) 

CALL  CFILU(MDICI.DT" ,2,IER) 

CALL  CFILUC'DIGI  «ED‘**2,IER) 

CALL  CFlLyrDlCI.0U",2,IER) 

30  TYPE  "<CR> 
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•  If  this  prograw  fails  to  operate  properly,  consult  the<CR> 
•laboratory  software  docunentation  aanual  for  a  coaplete(CR) 
•description  of  hardware  setup  and  verify  all  connections. <CR> 

«<CR> 

•This  prograa  aaintains  two  independent  buffers,  called  data(CR) 

•and  edit,  to  hold  conversion  data.(CR) 

«<CR> 

•Conversion  data  can  be  placed  in  the  data  buffer  through  an(CR) 

•A/D  operation  or  by  a  series  of  read  operations  froa  disk(CR) 
•files*  The  data  buffer  can  then  be  copied  into  the  edit  buffer(CR) 
•for  editing.  Editing  operations  do  not  affect  the  data  buffer. <CR> 
*(CR> 

•To  select  aenu  options  in  this  prograa,  type  only  the  nuaber(CR) 
•corresponding  to  the  option  and  carriage  return. <CR> 

*<CR> 

•Press  carriage  return  to  begin." 

ACCEPT 
CALL  NEUSCR 

The  variable  HQDE  is  used  to  deteraine  which  prograa  ail  be  called 
to  input  or  output  the  data  buffer. 

45  ACCEPT  "(CR) 

•Please  select  which  aode  ail)  be  used  or  a  description  of<CR> 

•both  nodes, (CR) 

•  1:  short  aode(CR) 

•  2:  long  aode(CR) 

•  3:  description^) 

•selections", HOPE 

CALL  NEUSCR 

IF  (MODE. EQ. SHORT  .OR.  NODE. EO. LONG)  GO  TO  49 

IF  (I10DE.EG.3)  GO  TO  47 

UR1TE(10,1) 

GO  TO  45 

This  aessage  can  be  requested  by  the  user  to  explain  the  difference 
between  short  aode  and  long  aode  operation. 

47  TYPE  "(CR) 

•Acording  to  the  length  of  the  data  file,  this  prograa(CR) 

•operates  in  one  of  two  nodes-  short  aode  or  long  aode.(CR) 

»(CR> 

•Short  aode  operation  allows  15,872  saaples  (1.98  sec  at  8  KHz(CR) 
•saapling)  to  be  collected  and  played  back  without  interruption. (CK> 
•The  directory  should  have  175  disk  blocks  available  for(CR) 
•execution  in  this  aode.(CR) 

«<CR> 

•Long  aode  operation  allows  51,200  saaples  (6.40  sec  at  8  KHz(CR) 
•saapling)  to  be  collected  and  played  back,  but  with  short(CR) 
•interrupts  every  10,240  saaples.  For  ainiaua  interrupt  tiwe,<CR> 

•it  should  be  operated  on  the  background  terainal  with  the(CR) 
•foreground  terwinal  brought  down.  Long  wode  operation  roouires(CR) 

•  40  KG  of  extendeu  aenory  amt  l>as  longer  processing  aoiaysfljR) 

•than  short  aode.  The  directory  should  have  450  disk  blocks(CR) 
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•available  for  execution  in  this  aode.(CR) 

«<CR> 

•Press  carriage  return  to  continue." 

ACCEPT 
CALL  NEUSCR 
CO  TO  45 

The  variable  NODE  is  coaaunicated  to  the  editor  prograa  through 
file  DIGI.OU.  This  allows  the  editor  prograa  to  deteraine  which 
prograa  to  call  to  output  the  edit  buffer. 

49  CALL  F0PEN(1 /"DIGI.OU") 

CALL  URSEQ(1,HQDE,2,IER) 

CALL  FCLOSE(l) 

C«««« ••••••••••••«•••••••••••••«••«•••••<•*•••*••••>••••••••• ••••»•••••••>••• 

c 

C  This  is  the  central  prograa's  aain  aenu. 

C 

50  ACCEPT  "<CR> 

•Please  select  which  operation  will  be  perf oraed,(CR> 

»  Is  A/D  conversion  into  data  buffer(CR) 

•  2:  D/A  conversion  out  of  data  buffer(CR) 

•  3:  editingfCR) 

•  4:  read  frow  file  to  data  buffer(CR) 

•  5:  write  data  buffer  to  file(CR) 

•  6:  copy  data  buffer  to  edit  buffer(CR) 

«  7:  exit(CR) 

•selection:", OPTION 

CALL  NEUSCR 

IF  (OPTION. EQ.l)  GO  TO  100 
IF  (OPTION. EQ. 2)  GO  TO  200 
IF  (OPTION. EQ. 3)  GO  TO  205 
IF  (OPTION. EQ. 4)  CO  TO  400 
IF  (OPTION. EQ. 5)  GO  TO  700 
IF  (OPTION . EQ . d. >  GO  TO  *00 
IF  (OPTION. EQ. 7)  GO  TO  1000 
WRITE (10/1) 

1  F0RHAT("(CR>(7)(CR>(7XCR>(7) 

•Please  select  options  froa  the  list  only.") 

CO  TO  50 

C«««««o«« «»««»»*»*••»«»«»»•»«**«•»««•«»»»*»•»•*»»»»• »***•*»«»•»»»«»»««»«»*** 
C 

C  This  section  of  code  fills  the  data  buffer  with  an  A/D  conversion 
C  operation. 

C 

100  bTBUF  =  FULL  ;this  operation  will  put  data  in  the  data  buffer 
TYPE  ”<CR> 

«  --)  entering  A/D  wode  (*-” 

IF  (NODE. EQ. SHORT)  CALL  SWAPrSt1ALLIN,SV“,IER) 
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IF  (NODE. EQ. LONG)  CALL  SWAP("BIGIN. SO" , IER) 

IF  (IER.NE.l)  TYPE  "SWAP  error  ",IER,"  aith  A/D  file" 

GO  TO  50 

CimHHOHmHHHHIlHtHHKHHHHHIHMOimHitHXIHIimHHHi 

C 

C  This  section  of  code  outputs  the  data  buffer  «ith  a  b/A  conversion 
C  operation! 

C 

200  IF  (DTBUF.EQ.EHPTY)  GO  TO  251 
TYPE  “<CR> 

«  -- >  entering  D/A  aode  (*-“ 

CALL  DFILW(“DIG1.FG",IER) 

IF  (NODE. EQ, SHORT)  CALL  SUAPrSI1ALL0UT,SV",IER) 

IF  (HODE.EQ.LONC)  CALL  SUAPC"BIGGUT,SO",IER) 

IF  (IER.NE.l)  TYPE  "SWAP  error  ",IEK,"  eith  D/A  file" 

GO  TO  50 


c 

C  This  section  of  code  calls  the  editor  prograa. 

C 

205  IF  (EDBUF.EQ. EMPTY)  GO  TO  250 
TYPE  "(CR> 

«  --)  entering  edit  aode 

CALL  SVAP( "EDITOR. SV" ,IER) 

IF  (IER.NE.l)  TYPE  "SWAP  error  ",IER,"  aith  editor  file" 
GO  TO  50 


^•••••••••••••••SftO* tfOOOMftKOiftlftltftOXftt  «««*«««  *««««»««««*«*»«« «««««»« 

c 

C  One  of  the  folloaing  aessages  is  sent  to  the  screen  if  the  user 

C  atteapts  a  buffer  operation  then  the  buffer  is  eapty. 

C 

250  TYPE  "<CR><7)<7><7> 

•The  edit  buffer  is  currently  eapty." 

GO  TO  50 

251  TYPE  "(CRX7X7X7) 

•The  data  buffer  is  currently  eapty.” 

GO  TO  50 

^••••••••••••••••••••••••••••"'••o'aMaoiooaaaa'HtaiHHia'Oca'easi'MMaMs 

C 

C  This  section  of  code  allots  the  user  to  fill  the  data  buffer  through 

C  a  series  of  read  operations  froa  disk  files. 

C 

400  ACCEPT  “(CRX 7X7X7) 

•The  current  data  buffer  is  erased(CR) 

108 


O  O  PJ  o  o  o 


•prior  to  reading  froa  disk* (CR> 

«<CR> 

•Do  you  aant  to,<CR> 

•  1:  continue<CR> 

•  2:  return  to  the  aain  aenu(CR) 

•selections", MENU5 

IF  < MENUS • EQ • 1 >  GO  TO  401 
IF  (HENU5.EQ.2)  GO  TO  50 
MRITE<10,1> 

GO  TO  400 

401  IF  (N0DE.EQ. SHORT)  TYPE  "<CR> 

•The  data  buffer  can  hold  up  to  62  disk  blocks." 

IF  (NODE. EQ. LONG)  TYPE  “<CR> 

•The  data  buffer  can  hold  up  to  200  disk  blocks, <CR> 

•and  are  output  in  40  block  aultiples." 

The  variable  STBLK  aaintains  the  starting  block  position  for  each 
arite  operation  into  the  data  buffer.  The  variable  BLKLEFT  aaintains 
the  nuaber  of  available  blocks  left  in  the  data  buffer  that  can 
receive  data. 

STBLX=0  (initialize  data  buffer 

IF  t MODE. EQ. SHORT)  BLXLEFT=62  ;arite  paraaeters 
IF  (H0DE. EQ. LONG)  BLKLEFT-200 

CALL  DFILWC'DIGI.DT",IER)  (erase  the  current  data  buffer  to 
CALL  CFILWC'DIGI «DT" ,2,IER)  (ready  for  nea  data 
DTBUFsEHPTY 

403  ACCEPT  “  (CR> 

•Enter  the  filenaae  for  readings" 

READ (11,2)  FILENAH(l) 

2  FORMAT  (S13) 

CALL  ST AT (FILE NAM, ST AT US, I ER) 

IF  ( I ER • EQ .13)  GO  TO  420 

IF  (IEK.NE.l)  TYPE  "STAT  error  ",IER,"  aith  your  file" 
FBLkSsSTATUS(V)  (FBLXS  is  the  nuaber  of  full 

*  IF  (STATUS(IO) .EQ.512)  FBLKS-FBLKS+1  (disk  blocks  in  the  user  file 
IF  (FBLXS. LT.l)  GO  TO  425 

405  UR1TE( 10,5 )  FILENAM(l) , FBLXS, FBLXS 
5  FORMATTER) 

•File  ",S13,“  contains  ",13,”  disk  blocks,  nuabered  1  -  ”,I3) 

ACCEPT  "<CR> 

•Please  specify  the  blocks  to  be  read  in,(CR) 

•first  blocks  ”,FIRBLX 

IF  (FIRBLK.LT.l  .OR.  FIRBLX.GT. FBLXS)  GO  TO  435 
ACCEPT  “ 

•  last  blocks  ",NUHBLK 

IF  (HUMBLX.GT. FBLXS  .OR.  NUMBLX .LT.F1RBLX)  GO  TO  435 
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BLKLEFT=BLKLEFT-<(NU«BLK-FIRBLK)+1) 

IF  (BLKLEFT.LT, 0)  CO  TO  430 
FIRBLK=FIRBLK-1 

CALL  OPEN ( 1 jFILENAM , 1 ,1ER) 

IF  (IER.HE.l)  TYPE  "OPEN  error  ",IER,"  with  your  file” 

CALL  0PEN(2,"DIG1.DT" ,0,IER> 

IF  (IER.HE.l )  TYPE  "OPEN  error  ",IER,"  nith  the  data  buffer" 

STBLX=STBLX+F1RBLX 
415  READBLK-NUHBLK 

IF  (READBLX ,CT .42)  READBLX=42 
NUNBLX-NUNBLK-READBLK 

CALL  RDBLX( 1 ,FIRBLX ,UORK >READBLK ,IER) 

IF  (IER.HE.l)  TYPE  “RDBLK  error  ",IER,"  with  your  file" 

CALL  URBLK ( 2, STBLK,UORK, READBLX, IER) 

IF  (IER.HE.l)  TYPE  "WRBLX  error  ",IER,"  with  data  buffer" 

FIRBLK=FIRBLK+READBLX 

STBLK=STBLK+READBLK 

IF  (NUHBLK.NE.O)  CO  TO  415 

CALL  RESET 

DTBUF=FULL  ;the  data  buffer  contains  data 
IF  (BLKLEFT.EQ.O)  CO  TO  50  ^return  to  the  »ain  iienu 

414  MR I TE < 10,3)  BLKLEFT 
3  FORMAT ("(CR> 

•The  data  buffer  can  hold  ",I3,"  additional  disK  blocKs.") 
ACCEPT  "(CR> 

•Do  you  »ant  to  read  froe  file  into  these  blocKs;(CR> 

*  Is  yes<CR> 

»  2:  no<CR> 

•selections" ,MENU4 
IF  (HENU4.EQ. 1 >  GO  TO  403 

IF  (HENU4.EQ.2)  CO  TO  50 

URITEdO  ,1) 

CO  TO  414 

420  TYPE  "(CRX7X7X7) 

•This  file  does  not  exist  in  the  current  directory." 

GO  TO  450 

425  TYPE  "(CRX7X7X7) 

•This  file  is  less  than  one  disk  block." 

CO  TO  450 

430  BLKLEFT=BLKLEFT+( (NUHBLK-FIRBLKl+l ) 

WRITE ( 10,7)  BLKLEFT 
7  FORMAT  <"<CRX7X7>(7> 

•You  specified  too  aany  blocks.  The  data  buffer  can(CR' 

•only  hold  ">I3,"  disk  blocks.  Please  try  again.") 

CO  TO  405 
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435  TYPE  "(CRX7X7X7> 

•You  cannot  take  that  block(CR) 

•selection.  Please  try  again." 

CO  TO  405 

450  ACCEPT  “ 

•Do  you  want  to,(CR> 

•  1:  try  another  file(CR) 

•  2:  return  to  the  tain  nenu<CR> 

•selection:", MENU2 

IF  (HENU2.EQ.1)  GO  TO  403 
IF  (NENU2.EQ.2)  GO  TO  50 
WRITE  (10,1) 

GO  TO  450 

C«««««« •••»«*••••«•««»•«»••»•«*•••«« «•«•••••»•»•«•••«»«•«•«•««•««««••«•«•»«•• 


This  section  of  code  allows  the  user  to  write  the  data  buffer 
to  a  disk  file  at  a  specified  beginning  block  nuaber. 

700  IF'(DTBUF.EQ. EMPTY)  CO  TO  251 

CALL  STATC'DIGI. DT” , STATUS, 1ER) 

DBLXS=STATUS(9)+l  ?DBLXS  is  the  nuwber  of  data  buffer  disk  blocks 

UR I TE 1 10,13)  DBLXS,DBLXS 
13  FORMAT (” (CR) 

•The  data  buffer  contains  “,I3,“  diskblks  nuwbered  1  *  ",I3,".") 

TYPE  ” 

•It  can  be  written  to  specified  blocks  of  an  existing  fi!e,<CR> 

•or  to  a  new  file." 

705  ACCEPT  "<CR> 

•Enter  the  filenane  for  writing:” 

READ(11 ,11)  FILENAH(l) 

11  F0RlfAT(S13) 

HENU3 5  0 

CALL  ST AT (FILENAH, STATUS, IER) 

IF  (IER.EQ.13)  GO  TO  710  ; if  the  file  does  not  exist,  create  it 

IF  (IER.NE.l)  TYPE  "STAI  error  ”,IER,“  with  your  file” 

FBLXS  =  ST ATUS ( v )  ;FBLKS  is  the  nuwber  of  full 

IF  ( STATUS (10) .EQ.512)  FBLKS-FBLKStl  ;disk  blocks  in  the  user  file 

GO  TO  720 

710  CALL  CFILW(FIlENArt ,2 ,  IER)  ^create  the  user  file  as  a  randow  file 
IF  (IER.NE.l)  TYPE  'CFI1.W  error  "/lEK,"  with  your  file" 


715  CALL  0PEN(1,"1)IGI,1)T",1,IER) 


IF  (IER.NE.l)  TYPE  “OPEN  error  ",IER,"  with  the  data  buffer” 
CALL  0PEN(2,FILENAH,3,IER> 

IF  (IERiNEtl)  TYPE  “OPEN  error  ”,IER,”  with  your  file" 

ST8LK-0 

FIRBLK:0 

UBLKS=DBLKS 

IF  (MENU3.EQ.0  .OR.  HENU3. EQ.  1  >  GO  TO  717 

714  IF  (FBLKS.NE.O)  WRITEt 10,15)  FILENAN(l) ,FBLKS 

15  FOkHAT("<CR> 

•File  ",S13,”  contains  ",I3,”  disk  blocks.") 

IF  (FBLKS.EQ.O)  URITE(10,16)  FILENAM(l) 

16  FORHAT("<CR> 

•File  ">S13,"  is  eapty,  it  contains  zero  disk  blocks.") 

TYPE  ” 

•Disk  blocks  are  nuabered  beginning  with  one." 

ACCEPT  ” <  CR  > 

•Please  specify  the  starting  block  for  the  data  buffer(CR) 

•to  be  written:" ,FIRBLX 
FIkBLK=FIRBLK-l 

IF  (FIRBLX.CE.O  .AND.  FIRBLK.LE.FBLKS)  GO  TO  717 

TYPE  “(CRH7)<7)(7> 

•You  cannot  aake  that  block(CR) 

•selection.  Please  try  again." 

GO  TO  714 

717  NUHBLK=WBLXS 

IF  (NUHBLK.GT.62)  NUHBLX=62 

UBLKSsU6LKS-NUNBLK 

CALL  RDBLX(1,STBLX>HQRX,NUHBLX>IER) 

IF  (IER.NE.l)  TYPE  "RDBLX  error  ”,IER,"  with  the  data  buffer" 
CALL  NRBLX<2,FIRBLMURX,hUNbLX,IER) 

IF  (IER.NE.l)  TYPE  "WRBLX  error  ",IER,"  with  your  file" 

STBLK=STBLX+NUHBLX 

FlRBLK=FlRBLX+NUnbLK 

IF  (UBLKS.NE.O)  GO  TO  717 

CALL  RESET 

WRITE(10,12)  FILENAH(l) 

12  FORMAT ( ” <  CR  > 

•The  data  buffer  has  been  written  to  file  ">S13) 

GO  TO  50 

720  URITE<10,14)  FBLKS 

14  FORHAT("(CR> 

•  This  file  already  exists  in  the  current  directory. (CR> 

•It  contains  “>13,”  disk  blocks.”) 

ACCEPT  "(CR) 

•Do  you  want  to,(CR> 

»  1:  delete  the  current  f’le(CR) 

•  2:  overarite  specified  blocks  of  the  current  fne(CR) 

•  3:  select  a  different  file(CR) 
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»  4:  return  to  the  earn  »enu<CR) 

•selection:", HENU3 
CALL  NEUSCK 

IE  (HENU3  • EQ . 1 )  CO  TO  730 

IF  (HEHU3.EQ.2)  GO  TO  715 

IF  (HENU3.EQ.3)  GO  TO  705 

IF  (KENU3.EQ.4)  GO  TO  50 

URITEdO  ,1) 

GO  TO  720 

730  CALL  DFILW(FILENAH,IER) 

IF  (IER.NE.l)  TYPE  "DF1LU  error  “,IER,“  eith  your  file" 
GO  TO  710 


CfimHOOHIIttHiltHmiiHHimilHIHMiHHHHIiHHIDHtmHmiHIIM 


This  section  of  code  copies  the  data  buffer  to  the  edit  buffer* 

600  IF  (DTBUF.EQ.EHPTY)  GO  TO  251 

CALL  STAT<"DIGI.DT”, STATUS, IER) 

BLKS- STATUS ( 9 ) + 1 

CALL  FOPEN ( 1 ,“DIGI .DT” ) 

CALL  F0PEN(2,"DIGI , ED*  ) 

FIRBLK--0 

605  NUHBLK-BLKS 

IF  (HUHBLK.GT.62)  NUHBLX=62 
BLKS=BLKS-NUHBLK 

CALL  RDBLK ( 1 ,FIRBLK , WORK, NUNBLK, IER) 

CALL  URBLK(2,FIKBLK  ,UORK,NUflbLK  , IER) 

FIRBLK=FIRBLK+HUHBLK 
IF  (BLKS.NE.O)  GO  TO  605 

CALL  FCLOSE(l) 

CALL  FCLOSE ( 2 ) 

EDBUF:FULL  ;the  edit  buffer  contains  data 
TYPE  “(CR> 

•The  data  buffer  has  been  copied  to  the  edit  buffer.” 

GO  TO  50 

1000  CALL  DFILWC'DIGI ,DT"  ,lEk) 

CALL  OFILUrvIGI  .El)", IER) 


EHD 
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C  Title:  Editor 

C  Author:  Lt  Allen 

C  Date:  Dec  62 

C  Function: 

C  This  prograa  handles  the  editing  operations  in  the  SPEECH  package* 

C  The  SPEECH  package  is  a  six-prograa  package  that  utilizes  the 

C  Eclipse  A/D/A  device  to  work  eith  speech  data  files*  This  program 

C  is  not  a  stand-alone  prograa.  It's  operation  depends  upon  paraaeter 

C  files  created  by  other  programs*  To  understand  the  operation  of 

C  this  prograa,  prograa  SPEECH,  which  is  the  centra)  prograa  of  the 

C  package,  should  be  consulted  first. 

C  Coapile  coaaand: 

C  FORTRAN  EDITOR 

C  load  coaaand: 

C  RLDR/P  EDITOR  NEUSCR  SFLIBI 

C  Coaaents: 

C  The  save  file  (.SO)  of  the  following  prograas  are  required  in 

C  the  user's  directory  to  operate  this  package, 

C  .  SPEECH, EDITOR, SHALL IN , SHALL OUT , B I C I H , B I  GOUT 

Cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

INTEGER  STATUS( 18), EBLKS, FIRST, LAST, INFC(2) 

INTEGER  HBLK3, BULKS (10) , CL I  PS (200) , SAMPS (200, 20) , START ,FIN 

INTEGER  iniN,IHAX,LEN,HQRE,8FLAG 

INTEGER  IB0T,ITQP,I0P,LII1IT ,NUHBLK ,FIRBLK 

INTEGER  FILEHAfK 7), IDATA3(  10240), EBLKS 

INTEGER  STBLK,READBLK, MODE, SHORT, LONG, HENU1 ,HENU2 

REAL  RHAXS( 200 > , RAINS (200) ,RNUH ,T0P ,B0T ,RNAX , RUIN ,HAG( 10) 

REAL  1HCR( 20) ,TINCR , POINTS, CLIP 

DATA  SHORT, LONG  /  1,2  / 

1DATA1:64000X 
CALL  NEUSCR 
C 

C  Retrieve  variable  NODE  to  deteraine  which  prograa  to  call  to  output 
C  the  edit  buffer* 

C 

CALL  F0PEN(1 ,"D1CI.0U") 

CALL  RDSEQ(1 ,H0DE,2,1ER) 

CALL  FCLOSEd ) 

CKXee«KXXXXK»XXXXXX«XXXXXXXX*XXKXXX*XXX*XX*XXXXXXCXXXtXXXXXXXKXKXXXXXX*lX<k«XX 

100  TTPE  "(CR> 
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«  -•>  the  prograa  is  in  edit  node 

CALL  STATC'DIGI. ED", STATUS, IER)  ?get  the  edit  buffer's  size 

EBLKS-STATUS(9)+1  ;this  is  the  nunber  of  blocks 

;in  the  edit  buffer 

The  variables  NUHBLX  and  FIRBLX  are  used  to  represent  the  nunber  of 
blocks  and  the  first  block,  respectively,  that  nil)  be  involved  in 
an  edit  buffer  D/A  operation* 

NUHBLK'EBLKS  ;set  the  D/A  parameters  to  output 
F1RBLK-0  $the  entire  edit  buffer 

BFLAG=0  ;this  flag  is  set  to  one  ehen  the  histograa 
^parameters  have  been  collected 

» 

This  is  the  editing  program's  aain  menu. 

105  ACCEPT  "<CR> 

•Please  select  ahich  operation  ail)  be  perf oraed,(CR> 

>  1:  D/A  conversion  of  edit  buffer(CR) 

•  2:  voltage  histograa(CR) 

•  3:  block  histogranICR) 

•  4:  write  edit  buffer  to  file(CR) 

»  5:  return  to  aain  nenulCR) 

•selection:" ,HENU1 

CALL  NEUSCR 

IF  (WENUl.EQ.l)  CO  TO  500 

IF  (HENU1.EQ.2  .OR.  HENU1.EQ.3)  CO  TO  200 

IF  (HENU1.E0.4)  CO  TO  700 

IF  (nEHUl.EQ.5)  GO  TO  1000 

UR1TE(10,1) 

1  F0RHAT(“<CRX7XCRX7  XCRX7) 

•Please  select  only  froa  options  given.") 

GO  TO  105 


This  section  of  code  collects  the  histograa  parameters.  It  is  executed 
only  once  each  tiae  the  editing  prograa  is  called. 

200  IF  (EBLKS.EQ.O)  GO  TO  250 
IF  (BFLAG.EQ.l)  GO  TO  220 

TYPE  ”<CR) 

«  -->  histograa  paraaeters  being  collected 

DO  203  I:1 , EBLKS 
CL1PS<  Z )  =  0 
RNAXS(l):-5. 

RHINS( I ) =5 . 

DO  203  J *  1 ,20 
SAWPSd  ,J) -0 
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non 


203 


CONTINUE 


NUNBLKsE8LXS 

J*1 

FIRBLK'O 

UNIT-0 

CALL  F0PEN(1 , "DIGI.ED") 

204  READBLX=NUNBLX 

IF  (READ6LK.GT.40)  RE ADBLK  =  40 

NUNBLK  =  NUi1BLK-READBLK 

CALL  RDBLK< 1 ^FIRBLK ^IDATA3/REA0BLK ^IER> 

IF  UER.NE.l)  TYPE  “rtbBLX  error  “,IER,“  with  edit  buffer" 

LIH1T-LIHIT+READBLK 
FIRBLK'FIRBLX+READBLX 
START- 1 
FINS254 

205  DO  210  I  =  START , FI H 

RNUH1 FLOAT ( IB AT A3 ( I ) )/ 32768 . *5 i 

IF  (RNUN.EQ.5.  .OR.  RNUH.E0.-5.)  CLIPS(J)=CLIPS(J>+1 

IF  (RNUN.GT .RNAXS(J) )  RNAXSf J) 5RNUN 

IF  (RNUN.LT  . Rfl INS ( J  ) )  RNINS(  J>--RHUH 

T0PS5 .0 

BOTH. 5 

DO  210  X- 1 .20 

IF  (RNUN.LE.TOP  .AND.  RNUH.CE.BDT)  SAHPS ( J,K)--SAHPS(J,K)  +  1 

TOPsTOP- .5 
BOT  =  BOT-  .5 
210  CONTINUE 
J;J  +  1 

START=START+254 

FIN=FIN+25d 

IF  (J.LE.LINIT)  GO  TO  205 
IF  (NUHBLK.NE.O)  GO  TO  204 
BFLAG=1 

CALL  FCLOSE(l) 

GO  TO  220 


CiimHmtHIOHIHHtHMMmHHMHtiOIOHIIIHOlHOlHIIKHHIlH 


C 

250 


This  sessaqe  is  sent  to  the  screen  if  the  user  attempts  a  buffer 
operation  when  the  buffer  is  ewpty. 

TYPE  "<CR><7><7)<7> 

•The  edit  buffer  is  currently  ewpty." 

CO  TO  105 


c 

G  This  section  of  code  requests  from  the  user  which  blocKs  of  the 
C  edit  buffer  will  be  in  the  histograw. 

1  1  7 


O  CJ  O  CJ 


c 

219  URITE<10,1) 

220  WRITE (10 ,3)  EBLXS/EBLXS 
3  FORMAT  ("<CR> 

•The  edit  buffer  contains  “,I3,“  disk  blocks*  nuabered  1  -  “,I3> 

TYPE  “ 

•Please  specify  ehich  blocks  will  be  in  the  histograa" 

ACCEPT  “ { CR  > 

•first  block:  “/FIRST 
IF  (FIRST, LT.l)  GO  TO  219 

ACCEPT  “ 

•last  block:  “/LAST 

IF  (LAST.CT.EBLKS  .OR.  FIRST. CT. LAST)  GO  TO  219* 

HBLXS= (LAST-FIRSTI+l  ;this  is  the  nueber  of  blocks  in  the  histograa 

NUHBLK=HBLKS  ;set  the  D/A  paraaeters  to  only  output 
FIRBLK=FIRST- 1  ;the  histograa  blocks 

P0IHTS=HBLKS«256 ,  ;this  is  the  nusber  of  saaples  in  the 

^histograa  blocks 

IF  (I1ENU1 . EG. 3)  CO  TO  3S0  ;to  give  the  block  histograa 

{else  give  the  voltage  histograa 

CHKHHHIlimimHHHIHHmomHHtHtmMliHIHOHOHIIIHOiH 


This  section  of  code  prepares  and  displays  the  voltage  histograa.  It 
scans  the  paraneter  variables  for  the  histograa  blocks. 

TYPE  “<CK> 

•  -->  voltage  histograa  being  prepared 

DO  301  1=1,20 
I  NCR ( I ) =0. 

301  CONTINUE 
CLIP=0. 

RHAX*-5, 

RHIH=5 . 

DO  302  I  =  FIRST /LAST 
CLIP  =  CLIP+CLIPS( I ) 

IF  (RHAXS(l) .CT.RNAX)  RNAX=RMAXS( 1 ) 

IF  (RniNS(I).LT.RHIN)  RIUH  =  RIUNS< I ) 

DO  302  J=l / 20 
1NCR(J>=1NCR(J)+SAHPS(I,J) 

302  CONTINUE 
lHAX=INT(RflAX/5.»32768.) 

IHIN=  INT(RfiIN/5  .  *327*8,  ) 


O  <-)  o 


•Voltage  Histograa" 

URITEdO  ,4)  FIRST, LAST, POINTS)  CL  IP 

4  FORMAT  (" 

•blocks:", 13, “-“,13,"  total  saaples:  ",F4.0,“  total  clips:  ",F6.0> 
URITEdO, 5)  RflAX ,Ii1AX ,RM1N,IMIN 

5  FORMAT  (“ 

•■ax  voltage:  ",F7.4,T ,I6,“XCR> 

•■in  voltage:  “  ,F7 .4 ,“  { “  "  I 

TYPE  “<CR> 

•  Voltage  Positive  Negative  TotaXCR) 

•  Magnitude  Samples  Samples  Sa«pl es(CR>“ 

T0P=5.0 
B0T=4.5 
J  =  20 

DO  303  1=1,10 

TINCR  =  INCR(  J  >  +  INCRd ) 

URITEdO,  6)  T0P,B0T,INCR(I)  ,INCR(J) ,  T I  NCR 

6  FORMAT  (" 

«  “,F3.1,"-",P3.1,“  “,F6*0,“  " , F  6 ♦ 0 , “  “,F6.0> 

T0P=T0P* .5 
B0T  =  B0T-  .5 
J=J-1 

303  CONTINUE 
CO  TO  400 

CtllHimmHHmHHHmiiOHIOlHimHHUIUtHIHHHHmtHHkH 


C  This  section  of  code  prepares  and  displays  the  block  histogram.  It 
scans  the  parameter  variables  tor  the  edit  buffer  data  blocks  to 
be  included  in  the  histogram 

350  TYPE  "<CR> 

•  -->  block  histograa  being  prepared 

DO  351  1=1,10 
HAC(I )  =  -5« 

I NCR ( I ) =  0 » 

351  CONTINUE 

CLIP=0. 

RHAX=- .5 
RM1N=5. 

LEN=INT(HBLKS/10.) 

H0RE  =  10- (HBLKS-  ( LEN *  1 0  >  ) 

DO  352  1=1,10 

IF  (LEN.NE.O)  BBLXSI I ) =IEN 
IF  (LEN.EQ.O)  BBLXS ( I )  =  1 

IF  (1 , C T . II 0 E  ,|V'D,  LEN, ME. 0)  BBIES ( I )  =BBLEE II I  d 

IF  (LEN.EQ.O  .AND.  I. GT. HULKS)  BbLXSd)  =  Q 

352  CONTINUE 
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J*1 

START*FIRST 

354  FIH=START+BBLKS(J)-1 
DO  353  I*START /FIN 
CLIP  =  CLIP+CLIPS(  I ) 

INCR(J) *INCR( J ) +CLIPSI 1 ) 

IF  <kHAXS<I>.GT.RHAX>  RHAX  =  RHAXS ( I ) 

IF  <RHINS!I)  .LT.RMIN)  RUIN  =  RUINS ( I ) 

IF  <RHAXS!I>.GE.HAG<J>)  HAG < J ) =RHAXS ( I ) 

IF  ( ABS < RK I NS ( I ) ) .GE.HAG! J) )  HAG ( J )  =  ABS ( RUINS < I ) ) 
353  CONTINUE 
J  -  J  +  t 

START*FIN+1 

IF  !BBLKS!J).NE.O  .AND.  J.LE.1Q)  GO  TO  354 

I MAX *  I NT !RH AX/5. *32768. ) 

IHIN=I NT (RHIN/5. *32768.) 


4 


X  f}* 


365  TYPE  " 

•Block  Histograa" 

WRITE! 10,4)  FIRST, LAST, POINTS, CLIP 
WRITE! 10,8)  RHAX, IHAX, RUIN, IHIN 
8  FORMAT (" 

•■ax  voltage:  “,F7.4,"!“  ,I6,"XCR> 

«iin  voltage:  ",F7.4,"<" ,16,”)") 

TYPE  “(CR> 

»  Block  Total  Hax(CR) 

•  Nuaber  Clips  Hagnitude(CR>‘' 


1*0 

ITOP=FIRST 
360  1=1+1 

IBOT*ITOP+BBLKS( I ) -1 
IF  (BBLKSII ) .EQ.O)  TYPE 

IF  (BBLKSil).EQ.l)  WRITE ( 10 ,9 )  ITOP , I MCR ( I )  ,HAG(I) 

9  FORMAT!" 

«  ” ,  1 3 ,  “  “ ,  F  6 . 0 ,  ”  ” ,  F  7 , 4 ) 

IF  (BBLXS(I) .GT.l)  WRITE! 10,10)  ITOP , I BOT , I NCR l I ) ,HAC(1) 

10  FORMAT!" 

*  “, 13, 13,"  " ,  F  6 « 0 , "  ”,F7,4) 

1T0P= IBOT+1 

IF  (1.LT.10)  GO  TO  360 
GO  TO  400 


C 

C  This  is  the  editing  pragraa's  histograa  aenu. 

C 

400  ACCEPT  "<CR> 

•Please  select  ahich  operation  mil  be  perf or*ed,!CR> 

*  1:  D/A  conversion  of  histograa  blocXs!CR> 

•  2:  delete  histograa  blocks  froa  edit  buffer!LR) 

/ 


1  zo 


*  3:  return  to  the  editing  aenufCR) 

•  selection:'1  ,HENU2 
CALL  NEHSCR 

IF  (HEM12.EQ.1)  CO  TO  500 

IF  (NENU2.EQ.2)  CO  TO  600 

IF  (HENU2.EQ.3)  CO  TO  650 

WRITE (10,1) 

GO  TO  400 

^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••* 

500  IF  (EBLKS.EQ.O)  CO  TO  250 
TYPE  “(CR> 

»  entering  D/A  aode 

C 

C  Create  a  flag  file  ahich  ail)  indicate  to  the  D/A  prograa  to  output 
C  *  the  edit  buffer  instead  of  the  data  buffer.  The  paraneters  are 

C  aritten  to  the  flag  file  specifying  the  section  of  edit  buffer  to 
C  output. 

C 

INF0( 1 ) -FIRBLK 
INF012) =NUHBLK 

CALL  DFILW(”DIGI.PG“/IER)  {delete  possible  flag  file  left  froa 

;a  previous  abort 

CALL  CFILWrDIGI.FG',2,lER> 

CALL  FOPEH ( 1  /‘DIGI .FC") 

CALL  URSEQ ( 1 , INF0,4  ,IER) 

CALL  FCLOSE(l) 

IF  (HODE.EQ. SHORT)  CALL  SHAPC'SHALLOUT .SO” ,IER> 

IF  (MODE. EQ. LONG)  CALL  SWAP<’'bIC0UT.SV‘fIER) 

IF  (IER.NE.l)  TYPE  "SWAP  error  ",ILR 

CALL  DFILWCDIGI,FG",1ER) 

IF  (HENU1.EQ.1)  GO  TO  105  {to  the  editing  aenu 

IF  (HENlll.EQ.2)  GO  TO  325  {to  the  volt  hist  aenu 

IF  (HENU1.EQ.3)  CO  TO  365  {to  the  block  hist  aenu 

[•••••••••••••it* «»»•»••••»»*»•>•**«•••* ****»«**>•»»»•••**«*•*•»**»»»•••••***• 

c 

C  This  section  of  code  deletes  the  histograa  blocks  by  overariting  these 
C  blocks  in  the  edit  buffer  uith  the  data  ianediately  following  the 

C  histograa  blocks.  The  histograa  paraaeter  arrays  are  siailarily 

C  updated. 

C 

600  CALL  FOPENU /’DIGI.ED") 

NUHBLKsEBLKS-LAST 
STBLK-LAST-1 
605  READBLK  =  NUf1BLK 

IF  (READBLK.GT.40)  REA0BLK=40 


NUHBLX  =  HUHBLK -READBLK 


606  CALL  RDBLK(1,STBLX,IDATA3,READBLX,1ER) 

IF  (IER.NE.l)  TYPE  "KDBLK  error  “  ,IER,“  with  edit  buffer” 

CALL  HRBLK(1,F1RBLK,I1)ATA3,READBLK,IER) 

IF  (IER.NE.l)  TYPE  “URBLX  error  ”,IER,”  with  edit  buffer” 

STBLK>STBLX+READBLK 

F1RBLK=F1RBLK+READBLK 

IF  (NUNBLK.NE.O)  CO  TO  60S 

CALL  FCLOSE ( 1 ) 

DO  615  I*FIRST,LAST 

J  =  I +HBLKS 

CLIPS (I )  =  CLIPS( J  > 

RHAXS(I)=RMAXS(J) 

RniHS(I)-RHIKS( J  > 

DO  615  X=1 ,20 
SAHPSd  ,K)  :SAHPS(  J  ,K) 

615  CONTINUE 

EBLKS=EBLKS-HBLKS 

TYPE  “(CR> 

*The  edit  buffer  has  been  updated.” 

650  FIRBLX=0  :set  the  D/A  paraneters  to  output 

NUNBLK-EBLKS  *the  entire  edit  buffer 

CO  TO  105  jreturn  to  warn  aenu 

C««« ««««»»»*«»• »«»««** ««««#*««*««««««»«*»«**«»»»*»»»•#««»»• ****#»«•«•»***•*»» 
700  IF  (EBLKS.EQ.O)  GO  TO  250 

URITEC 10,13)  EBLXS f EBLKS 
13  FORNAT("(CR> 

•  The  edit  buffer  contains  “,I3,"  diskblocks  nuabered  1  -  ",13,”,") 

TYPE  ” 

•It  can  be  written  to  specified  blocks  of  an  existing  file,<CR> 

•or  to  a  new  file.” 

705  ACCEPT  “<CR> 

•Enter  the  filenaae  for  writing:” 

READdl |11)  FILENAHd) 

11  F0RHAKS13) 

10P-0 

CALL  STAT(FILENAH, STATUS, IER) 

IF  dER.EQ.13)  GO  TO  710 

IF  (IER.NE.l)  TYPE  "SIAT  error  “,IER,“  with  pour  file” 

FBLKS=STATUS(9> 

IF  (STATUSdO)  .EQ.512)  FBLXS-FBLXSd 
CO  TO  720 

710  CALL  CFILW(FILENAH,2,IER) 


IF  (IER.NE.l)  TYPE  “CFILU  error  ";IER>"  with  your  file" 

715  CALL  0PEN(1,"DICI.ED“,1,IER) 

IF  (IER.NE.l)  TYPE  “OPEN  error  “,IER,"  with  the  edit  buffer" 
CALL  0PEN(2,FILENAM,3,IER> 

IF  (IER.NE.l)  TYPE  “OPEN  error  “,IER,"  with  your  file" 

STBLK  =  0 

F1RBLK-0 

BLKS-EBLKS 

IF  ( I0P.EQ.0  .OR.  IQP.EQ.l)  CO  TO  717 

716  IF  (FBLXS.NE.O)  URITEt 10,15)  F1LENAPK 1 ) ,FBLKS 

15  FORHAT(“(CR> 

•File  ",S13/'  contains  ",I3,“  disk  blocks.") 

IF  (FBLKS.EQ.O)  WRITE (10,1^)  FILENAM(l) 

16  FORHAT("<CR) 

•File  “;S13,"  is  ewpty>  it  contains  zero  disk  blocks.") 

TYPE  " 

•Disk  blocks  are  nuabered  beginning  with  one." 

ACCEPT  “(CR) 

•Please  specify  the  starting  block  for  the  data  buffer(CR) 

•to  be  written:"  ,FIRBLX 

FIRBLK=FIRBLK-1 
IF  (FIRBLK.GE.O)  CO  TO  717 
CO  TO  71 6 

717  NUHBLK=BLKS 

IF  (NUHPLK .GT .40)  NUHBLK  =  40 
BLKS-BLKS-NliUBLK 

CALL  RDBLX(l,STSLK,IDATA3,NUHBLK,IEk> 

IF  (IER.NE.l)  TYPE  "RUBLX  error  ",1ER,"  with  the  data  buffer" 
CALL  URBLK(2,FIRBLK,IUATA3,NUI1BLK,IER) 

IF  (IER.NE.l)  TYPE  "WRBLX  error  “,IER,"  with  your  file" 

STBLK-STBLKfNUnBLX 

F1RBLK  =  FIRBLK+NUP1BLK 

IF  (BLKS.NE.O)  GO  TO  717 

CALL  RESET 

tlRITE<10,12)  FILENAH(l) 

12  FORMAT  C'(CR) 

•The  data  buffer  has  been  written  to  file  “>513) 

GO  TO  105 

720  UR1TE(10 ,14)  FBLXS 
14  F0RHAT(“(CR> 

•This  file  already  exists  in  the  current  directory.(CR) 

•It  contains  ">13>"  disk  blocks.") 

ACCEPT  "(CR) 

•Do  you  want  to,(CR> 

•  1:  delete  the  current  file(CR) 

•  2;  overwrite  specified  Mocks  of  the  current  file(CR) 

•  3:  create  a  new  file(CR) 

«  4:  return  to  the  editing  i»enu(CR> 


1  23 


•selection:" >IQP 
CALL  NEWSCR 

IF  (I0P.EQ.1)  CO  TO  730 
IF  (10P.EQ.2)  GO  TO  715 
IF  (I0P.EQ.3)  GO  TO  705 
IF  (I0P.EQ.4)  GO  TO  105 
URITE(10,1) 

GO  TO  720 

730  CALL  DFILU(FILENAH,IER) 

IF  (1ER.NE.1)  TYPE  "DFILU  error  “ , IER with  your  file" 

GO  TO  710 

£••••••••••••••>••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

1000  CALL  NEUSCR 
CALL  EXIT 
END 

COOHIHIDHHIUliHHMIlitHliHtililiHlimtllHHHtimiHIIHIHiitlllOmtmHil 
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CiHHIlHHIHHIttmjHtHOHHmtliOHHIHHHHHiltlHHItmHttHliH 

Title:  Saallln 
Author:  It  Al I en 
Date:  Dec  62 

Function: 

This  program  handles  the  short  mode  A/D  conversion  operations 
in  the  SPEECH  package.  The  SPEECH  package  is  a  si x-proqra* 
package  that  utilizes  the  Eclipse  A/D/A  device  to  work  with 
speech  data  files.  This  proqram  is  not  a  stand-alone  proqram. 

It's  operation  depends  upon  parameter  files  created  by  other 
proqrams.  To  understand  the  operation  of  this  proqraa,  program 
SPEECH,  ahich  is  the  central  program  of  the  package,  should 
be  consulted  f irst. 

C  Compile  coaaand: 

C  FORTRAN  SHALL1N 

C  Load  coaaand: 

C  RLDR/P  2/K  SnALLIN  NEUSCR  SAHC0NF1G3  9SAHLIE8 

C  Coaaents: 

C  The  save  file  ( . S V )  of  the  folloainq  programs  are  required  in 

C  the  user's  directory  to  operate  this  package, 

C  SPEECH, EDITOR, SBALLIN,SHALLGUT,BICIN, BIGOUT 

C***##*#**#iHHHHHHHHHHHHHf**#***IK***»***********************  ***************** 

EXTERNAL  IDS21  ^declare  A/D  device 
EXTERNAL  IDS23  ;must  also  declare  D/A  device 

COHHON  /  IBUFF  /  I U A T A 3 (  15872)  ;setup  the  A/D  conversion  data  buffer 
CONNON  /  IBUFQ  /  IUASTE  $*ust  also  set  up  a  D/A  buffer 

INTEGER  I  ORB A  < 16) 

1DATA 1  =  60000K  ;use  channel  one  and  external  clock 
CALL  NEWSCR  :erase  the  screen 

TYPE  " <  CR  > 

*  -->  the  program  is  in  A/D  aode 

CALL  DSTRT(IER)  ^initialize  A/D/A  device 
IF  (IER.NE.l)  CALL  ERRQRCDSTRT  error") 

CALL  0PEN( 1 ,"DIGI .DT"  ,3,IER)  ;ready  program  SPEECH'S  data 

^buffer  for  writing 

IF  (IER.NE.l)  TYPE  "OPEN  error  “,1ER,"  with  the  data  buffer" 

100  ACCEPT  "(CR) 

•Press  the  carriage  return  to  begin" 

ACCEPT 

CALL  D01TH(I0RBA,IDS21,8,1DATA1,15872,1DATA3,IER) 


IF  (1ER.NE.1)  TYPE  "DQITW  error", IER 


TYPE  "<7><7><7)<CR> 

•That's  all  folks!" 

ISO  I0P=0 

ACCEPT  “<CR> 

•press  the  carriage  return  to  return  to  the  sain  aenu,(CR> 

•or  press  the  space  bar  and  carriage  return  to  do  a  retake:" 

READ<11,2>  IDP 
2  FORHAT(Sl) 

CALL  NEUSCR 

IF  (I0P.EQ.0)  CO  TO  200 
IF  (I0P.EQ.8192)  GO  TO  100 
WRITE(10,i> 

1  FORHAT("(CR>(?><CR><7XCR)(7> 

•Please  select  only  froi  options  given*") 

GO  TO  150 

200  CALL  WRBLK(1,0,IDATA3,82,IER)  ;«rite  the  conversion  data  to 

;prograa  SPEECH'S  data  buffer 
IF  (IER.NE.1)  TYPE  "HRBLX  error  " ,IER, "■ith  data  buffer" 

CALL  CLOSEfl ,IER) 

IF  (IER.NE.1)  TYPE  "CLOSE  error", IER,"  eith  data  buffer" 

TYPE  “ (CR> 

«  - - >  exiting  A/D  aode  (-*“ 

CALL  EXIT 
END 

ClOIIIHKOimiliHOHIiliHilHOHHHIHHIHIOHHHHimiOtmiKHtHt 
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Title:  SnallOut 
Author:  Lt  Allen 
Date:  Dec  82 

Function: 

This  progran  handles  the  short  node  D/A  conversion  operations 
in  the  SPEECH  package.  The  SPEECH  package  is  a  six-progran 
package  that  utilizes  the  Eclipse  A/D/A  device  to  work  with 
speech  data  files.  This  program  is  not  a  stand-alone  progran. 

It's  operation  depends  upon  parameter  files  created  bp  other 
prograns.  To  understand  the  operation  of  this  progran,  progran 
SPEECH,  which  is  the  central  progran  of  the  package,  should 
be  consulted  first. 

Conpile  conaand: 

FORTRAN  SHALLQUT 

Load  conaand: 

RLDR/P  2/K  SNALLUUT  NEUSCR  SAHC0NFIG4  8SAHLIB0 
Connents: 

The  save  file  (.SO)  of  the  folloning  prograns  are  required  in 
the  user's  directory  to  operate  this  package, 

C  SPEECH,  EDITOR,  SRALLIN,SHALLOUT, BIGIN, BIGQUT 

C********o*******»#***#************k**** #*********»*****«*» ***************** 

EXTERNAL  IDS21  ;nust  also  declare  A/D  device 
EXTERNAL  IDS23  {declare  D/A  device 

COHHON  /  I  BUFF  /  I  WASTE  ;nust  also  set  up  A/D  buffer 

C0M10N  /  IBUFO  /  1BATA3 ( 15S72 >  ;set  up  the  D/A  conversion  data  buffer 

INTEGER  I0RBA(16), STATUS (18), NUHBLK, NUMB, FIRBLK,IEXT 
1NTECER  PLACE, ZERO, INI'f ,READBLK,INFO( 2) 

I DATA1 = A4000K  {use  channel  one  and  external  clock 
CALL  NEUSCR  {erase  the  screen 

TYPE  "<CR> 

«  --)  the  progran  is  in  D/A  node 

CALL  DSTRT(IER)  {initialize  A/D/A  device 
IF  (IER.NE.l)  CALL  ERROR ( "DSTRT  error") 


CALL  0PEN( 1  ,"DIGI  .FG" ,  1 ,  IER) 

IF  (IER.EQ.13)  GO  TO  100  {if  flag  file  does  not  exist,  then 

^output  data  buffer 

GO  TO  200  {else  output  the  edit  buffer 
Ckkkk»k»ktkkkkkkkkkkkk*»kkkkkXkt»kktkk*k»k*kk«kkkkk*kft*kk«»kkkkkkkkkk«ftkkXXkk 
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C  This  section  of  code  sets  the  output  parameters  to  output  the  entire 
C  data  buffer* 

C 

100  CALL  CLOSE ( 1 ,  IER) 

CALL  STAT (“OICl.DT", STATUS, IER) 

NUf1BLK  =  STATUS(9)  +  1 
F1RBLK-0 

CALL  F0PEN(1,”DIGI.DT“)  ;open  the  data  buffer  for  reading 
GO  TO  500 

C 

C  This  section  of  code  retrieves  the  parameters  .f roe  the  flag  file 

C  that  specifies  the  section  of  edit  buffer  to  output* 

C 

200  CALL  RDSEQ ( 1 , INFO, A , IER) 

CALL  FCLOSE < 1 ) 

FIRBLK  =  I NFO < 1 )  ;the  first  block 

NUHBLK=INF0(2)  ;the  nueber  of  data  blocks 

CALL  F0PEN( 1 ,“DIGI «ED“ )  ;open  the  edit  buffer  for  reading 

C»« »»******##»*#*******»*#»******#»»*# »***#»#»*»»»»#* »**»»*•»»**»•*»« **#»*»•# 

500  CALL  RDBLK(1,FIRBLK,IDATA3,NUHBLK,IER) 

IF  (1ER.NE.1)  TYPE  “RDBLX  error  ",IER,"  with  output  buffer" 

IDATA2  =  NU11BLK*256  5 the  nueber  of  data  samples  to  output 

505  ACCEPT  "<CR> 

•Press  the  carriage  return  to  begin” 

ACCEPT 

506  CALL  DO ITU(I QRBA, IDS23, 8, 26624,1 DATA2 , 1  DAT A3 , IER) 

IF  (IER.NE.l)  TYPE  "DOITW  error  ”,IER 

510  IOP=0 

ACCEPT  ”<CR> 

•  press  carnage  return  to  continue, < CR > 

•or  press  space  bar  and  carriage  return  to  repeat:” 

READ (11,2)  IOP 
2  FORMAT  LSI ) 

CALL  NEUSCR 

IF  (10P.EQ.0)  GO  TO  1000 
IF  (IOP.EQ,  8192 )  GO  TO  506 
WRITE! 10,1) 

1  F0RHAT("<CR)(7><CRX7)<CR><7> 

•Please  select  options  from  the  list  only.”) 

GO  TO  510 

1000  TYPE  ”(CR) 
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«  -->  exiting  »/A  aode 

CALL  EXIT 
EHD 


CmtimmmoHiiKiiiHmiiiiHiiitoiHiHiiiimmiioiitimiHiiiMi* 
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CilOHHHttHHHiHiHIIHHHHHHIlHtttHHmHItHiHjfiHHtHHKHtHI 

C  Title;  Bigln 

C  Author:  Lt  A) len 

C  Bate:  Dec  &2 

C  Function: 

C  This  prograa  handles  the  long  eode  A/D  conversion  operations 

C  in  the  SPEECH  package.  The  SPEECH  package  is  a  six-prograw 

C  package  that  utilizes  the  Eclipse  A/D/A  device  to  work  with 

C  speech  data  files.  This  prograa  is  not  a  stand-alone  progran. 

C  It's  operation  depends  upon  paraaeter  files  created  by  other 

C  prograns.  To  understand  the  operation  of  this  prograa,  prograa 

C  SPEECH,  which  is  the  central  prograa  of  the  package,  should 

C  be  consulted  first. 

C  Coupile  coaaand: 

C  FORTRAN  BIG1N 

C  Load  coaaand: 

C  RLDR/P  2/K  2000/N  BIGIN  NEUSCR  SAHCQNFIG3  8SAHLIB8 

C  Coaaents: 

C  The  save  file  (.SV)  of  the  following  prograas  are  required  in 

C  the  user's  directory  to  operate  this  package, 

C  SPEECH,  EDITOR,  SNALLIN,SHALLOUT, BIGIN, BIGOUT 

CmtiHttHHimmHmiiiiitmmHHHiimmimmHiimimmmHi 

EXTERNAL  IDS2I  {declare  A/D  device 
EXTERNAL  1DS23  {Bust  also  declare  D/A  device 
COnnQN  IUINDU0240)  {extended  nenory  window 

C0HI10N  /  I  BUFF  /  I D  A  T  A  3  ( 10240)  {set  up  the  A/D  conversion  data  buffer 

COHflON  /  IBUFO  /  IWASTE  {Bust  also  set  up  a  D/A  buffer 

INTEGER  IQRBA4 Id)  ,IF1LE(7) 

CALL  NEUSCR  ;erase  the  screen 

TYPE  "<CR> 

«  -->  the  prograa  is  in  A/D  node 

C 

C  Set  up  extended  aeaory  to  hold  the  results  of  the  first  four  conversion 
C  operation  cal  Is. 

C 

CALL  VHEfH  IEXT,1ER) 

IF  UER.NE.l)  TYPE  "VIIEH  error  ”,1ER 

IF  (IEXT.LT.40)  CALL  ERRORCinsuf f icient  extended  aewory") 

CALL  MAPDF ( 40 , 1 W I N D ,  10 , 1 ER >  {each  conversion  operation  will 

;col lect  1  OK W  of  data 
IF  UER.NE.l)  TYPE  "NAPDF  error  ",IER 

CALL  DSTRT(IER)  {initialize  A/D/A  device 


U  U  L) 


IF  (IER.NE.l)  CALL  ERRORTDSTRT  error") 

CALL  QPENU ,"DIGI.DT",3,IER)  {ready  prograi  SPEECH'S  data 

^buffer  for  writing 

IF  (IER.NE.l)  TYPE  "OPEN  error  “,IER,“  with  data  buffer" 

100  TYPE  "<CR) 

•Press  the  carriage  return  to  begin:" 

ACCEPT 

CALL  D01TU< IORBA,  1DS21, 8, 24576, 10240, IDATA3,IER> 

CALL  VSTASH(1DATA3,1, 10240) 

CALL  D0ITU( IORBA,  I DS21  ,8,24576 jl 0240, 1DATA3,IER) 

CALL  VSTASHUDA7A3, 10241, 10240) 

CALL  DOITU ( IURBA , 1DS21 , 8, 24576, 10240, IDATA3,IER) 

CALL  VST ASH (I DAT A3 ,20461,10240) 

CALL  D0ITW( IORBA , IDS21 , 8, 24576, 10240, IDATA3,IER) 

CALL  VSTASH11DATA3, 30721, 10240) 

CALL  DOITU ( IORBA, IDS21, 8, 24576, 10240, IDATA3,IER) 

TYPE  “<7><7><7)<CR> 

•That's  all  folks!" 

150  IOP=0 

ACCEPT  “<CR> 

•Press  carriage  return  to  return  to  the  wain  wenu^CR) 

•or  press  space  bar  and  carriage  return  to  do  a  retake:" 
READUl ,2)  IOP 
2  FORHAT(Sl) 

CALL  NEUSCR 

IF  (IOP.EO.O)  GO  TO  200 
IF  (IOP. EQ. 8192)  GO  TO  100 
WRITE (10,1) 

1  FORMAT  ("<CRX7>(CRX7>(CR>  (7) 

•Please  select  only  fro*  options  given.") 

GO  TO  150 

Write  the  conversion  data  to  progran  SPEECH'S  data  buffer. 

200  CALL  URBLK (1 , 160, 1  DAT A3 ,40 , 1 ER) 

IF  (IER.NE.l)  TYPE  "URBLK  error  ",IER,"  with  the  data  buffer" 

CALL  VFETCHUDATA3, 1,10240) 

CALL  URBLK ( 1 ,0,1  DAT A3, 40 ,1ER) 

CALL  VFETCHUDATA3, 10241, 10240) 

CALL  WRBLK(i,40,IDATA3,40,IER) 

CALL  VFETCHU0ATA3, 20481, 10240) 

CALL  URBLK ( 1,80, ID AT A3, 40, IER) 


CALL  VFETCH ( I  DAT A3 ,30721 / 1 0240 ) 

CALL  URbUU,120,ll>ATA3,40,iER) 

IF  (IER.NE.l)  TYPE  “WRBLK  error  ",IER,“  eith  the  data  buffer" 
CALL  CLQSEi 1 ;IER) 

IF  (IER.NE.l)  TYPE  “CLOSE  error  ",IER,"  »ith  the  data  buffer" 
TYPE  "<CR> 

»  -->  exiting  A/D  eode  (--“ 

CALL  EXIT 
END 


C********#<***##0*«********«<«***<**#******»****#*«*t***»*«**tHHHt****«##**** 
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CHHHHHOHHHmoilMOmiimiHliiHOHHIimHmHmHIHIHHm 

C  Title:  BigQut 

C  Author:  Lt  Allen 

C  Date:  Dec  62 

C  Function: 

C  This  prograa  handles  the  long  node  D/A  conversion  operations 

C  in  the  SPEECH  package.  The  SPEECH  package  is  a  six-prograa 

C  package  that  utilizes  the  Eclipse  A/D/A  device  to  work  with 

C  speech  data  files.  This  proqraa  is  not  a  stand-alone  proqraa. 

C  It's  operation  depends  upon  parameter  files  created  by  other 

C  programs.  To  understand  the  operation  of  this  prograa,  proqraa 

C  SPEECH,  which  is  the  centra)  prograa  of  the  package,  should 

C  be  consulted  first. 

C  Coapile  coaaand: 

C  FORTRAN  BIGOUT 

C  Load  coaaand: 

C  RLDR/P  2/K  2 0 00/ N  BIGOUT  NEWSCR  SAHC0NFIG4  0SAHLIB8 

C  Coaaents: 

C  The  save  file  (.SV)  of  the  following  prograas  are  required  in 

C  the  user's  directory  to  operate  this  package, 

C  SPEECH, EDITOR, SHALL1N,SHALL0UT,BICIN, BIGQUT 

C«»« *»»»»»»»»»»»«»»»*«»«* »*«»«««» »»*«*«»*•*« ««*««** 

EXTERNAL  IDS21  *,nust  also  declare  A/D  device 

EXTERNAL  IDS23  ^declare  D/A  device 

COHHON  IUINDU0240)  ^extended  aeaory  window 

COHHON  /  I  BUFF  /  I U AST  E  ;aust  also  set  up  A/D  buffer 

COHHON  /  IBUFO  /  IDATA3U0240)  ;set  up  the  D/A  conversion  data  buffer 

INTEGER  1 ORB A i 16) ,STATUS(18)  ,NUnBLX ,LASBLK ,FIRBLX ,1EXT 
INTEGER  PLACE, ZERO, INIT,READBLK,INF0(2> ,HANY, SET 

IDATA1=6400QK  ;use  channel  one  and  external  clock 
CALL  NEUSCK  ;erase  the  screen 

TTPE  "(CR> 

*  -->  the  prograa  is  in  D/A  aode 

C 

C  Set  up  extended  aeaory  to  hold  conversion  data  to  be  output. 

C 

CALL  VHEH(IEXT,IER) 

IF  UER.NE.l)  TYPE  "VtlEH  error  ",IER 

IF  (IEXT.LT.40)  CALL  ERRORC'insuf  f icient  extended  aewory") 

CALL  HAPDF(40,IW1ND,10,1ER)  ;each  conversion  operation  will 

^output  10KU  of  data 
IF  (IER.NE.l)  TYPE  "HAPDF  error  ",KR 
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CALL  DSTRT(IER)  {initialize  A/D/A  device 
IF  UER.NE.l)  CALL  ERRQRrDSTRT  error") 

CALL  OPENd,“DIGI.FC",l,lER) 

IF  ( IER • EQ • 13 )  CO  TO  100  {if  flag  file  does  not  exist;  then 

{output  data  buffer 

GO  TO  200  {else  output  the  edit  buffer 

CimiHOimttOHIIIIIilOtHHIHOHtHHHHHKHHHHOlHIOiHHHIlil 


This  section  of  code  sets  the  paraseters  to  output  the  entire 
data  buffer. 

100  CALL  CLQSE<1,IER) 

CALL  STATCDIG1. DT” , STATUS, IER) 

NUHBLX : STATUS ( 9 ) +1 
F1RBLK-0 

CALL  FOPENd  ,"DIG1 .DT")  {open  the  data  buffer  for  reading 
TYPE  “<CR> 

*  -->  the  program  is  in  D/A  node 

GO  TO  500 

IIHKHHimHmHIKIHmHHOlHHIimiHIHIHHIHMtHtmiHtlH 


This  section  of  code  retrieves  the  parameters  from  the  flag  file 
that  specifies  the  section  of  edit  buffer  to  output. 

200  CALL  RDSEQ (1,1NF 0,4,1 ER) 

CALL  FCLOSEd) 

If  I RBLK  =  INFOd  )  {the  first  block 
NUHBLXdNF0(2>  {the  number  of  blocks 
CALL  FOPENd, “DIGI. ED") 


This  section  of  code  places  the  data  to  be  ouput  in  the  first  NUI1BLK 
blocks  of  the  conversion  data  buffer.  Any  remaining  conversion  data 
buffer  blocks  are  zero  filled.  Each  D/A  operation  mill  output  200 
disk  blocks  of  data  in  40-disk  block  sections. 

500  CONTINUE 

PLACE3 1 
ZERO  r 0 
INIT*FIRBLK 
LAS8LK=NUHBLK 
SETl0 

IF  <LASBLX.LE.40)  GO  TU  502 
LASBLXM0 
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FIRBLK  =  F IKBLK  +  40 
NUHBLKSNUHBLK*40 

501  READBLK-NUHBLK 

IF  (READBIK.GT.40)  READBLK=40 
NUBBLK-NUHBLK-READBLK 

CALL  RDBLK( 1 ,F1RBLK ,IDATA3  ,READBLK,IER) 

IF  (1ER.NE.1)  TYPE  "RDBLK  error  “.IER,"  «ith  the  output  buffer* 
NANYSREADBLK*256 
IF  (NAHY. EG. 10240)  GO  TO  520 
HANYsNANY+i 
DO  530  I=HANY, 10240 
I DAT  A3 ( I ) sZERO 
530  CONTINUE 

520  CALL  VSTASH(IDATA3, PLACE, FIANY) 

PLACESPLACE+HANY 

FIRBLKSFIRBLK+READBLK 

SET=SET+1 

IF  (NUHBLK.NE.O)  CO  TO  501 

502  IF  (SET.EQ.4)  GO  TO  503 
DO  540  1  =  1 ,10240 
IDATA3(I):ZER0 

540  CONTINUE 

PLACE= (SET*10240>+1 

CALL  VSTASHUDATA3  .PLACE,  10240) 

SET  =  SET  + 1 
GO  TO  502 

503  CALL  RDBLX(1,INIT,IDATA3,LASBLK,IER> 

IF  (IER.NE.l)  TYPE  "RDBLK  error  ",IER,”  nitrh  output  buffer" 
PLACE- (LASBLK*256)+1 

504  IF  (PLACE. GT. 10240)  GO  TO  505 
I D AT A3 ( PLACE ) : ZERO 
PLACE:PLACE+1 

GO  TO  504 


C**************************************************************************** 

505  ACCEPT  "(CR) 

•Press  the  carriage  return  to  begin" 

ACCEPT 

506  CALL  D0ITH(I0RBA,IDS23, fl, 26624, 10240, IDATA3.IER) 

CALL  VFETCHUDATA3, 1,10240) 

CALL  D0ITW(I0RBA,IDS23,8,26624,10240,IDATA3,IER> 

CALL  VFETCH(IDATA3, 10241, 10240) 

CALL  DOITWU QRBA, IDS23, 8, 26624, 10240, IDATA3,IER) 


CALL  VFETCH(IDATA3, 20461, 10240) 


CALL  DOITN< I0RBA,IDS23, 8, 26624, 10240, IDATA3,IER) 

CALL  VFETCHUDATA3, 30721, 10240) 

CALL  DO ITU( I ORBA, 10523,8,26624, 10240, 1  DAT A3, 1  HR) 

IF  tIER.NE.l)  TYPE  "D017W  error  ",1ER 

510  I0P-0 

ACCEPT  “<CR> 

•press  carriage  return  to  continue, <Ck> 

•or  press  space  bar  and  carriage  return  to  repeat:" 

READdl ,2)  IOP 
2  FORMAT (SI) 

CALL  NEUSCR 

IF  ( I0P.EQ.0)  CO  TO  1000 
IF  (IOP.EQ.  8192)  CO  TO  503 
WRITEd0,l> 

1  FORHAT("<CRX7XCRX7  XCRX7) 

•Please  select  options  fro»  the  list  only.") 

CO  TO  510 

1000  TYPE  ”(CR> 

«  -->  exiting  D/A  node  (--" 

CALL  EXIT 
END 

CHHOUHIOlHimHdiilOHIHHIIIHHmHHHHHIlHHOHmiHimO 
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c»»»*»»»**» **»*******»*»»******»**»*»****»***»**»»**»*»****» »«»*»*»*«»»***»** 

C  Title:  Digitize 

C  Author:  Lt  Al len 

C  Date:  Dec  S2 

C  Function: 

C  This  is  the  central  prograa  of  a  three-prograw  package  that 

C  interactively  allows  the  user  to  set  different  operating  features 

C  of  the  Eclipse  A/D/A  device* 

C  Environaent: 

C  This  is  a  Fortran  V  prograa  that  has  been  designed  to  run  on  a 

C  mapped-RDOS  Eclipse  S/250  minicomputer  equipped  with  a  model  4331 

C  single  board  converter. 

C  Compile  coaaand: 

C  FORTRAN  DIGITIZE 

C  Load  coaaand: 

C  RLDR/P  DIGITIZE  IFLIBt 

C  Comments: 

C  Refer  to  line  5  of  the  prograa  text  for  inforaation  regarding 

C  the  data  buffers  in  this  package. 

C  The  save  file  <«SV)  of  the  following  prograas  are  required  in 

C  the  user's  directory  to  operate  this  package, 

C  DIGITIZE, IN»IGI,OUTDIGI 

C«***t»*«**»»«» **♦*»§***» *********** ****»»» ******** #*»»«*«*»*****«»»*» 

INTECER  OPTION 
5  TYPE  "<CR> 

•The  A/D  and  D/A  data  buffers  are  separate  with  each  diaensioned(CR> 

«to  their  maximum  spec  size  of  16XW,  Due  to  the  data  buffers  beinq<CR> 
•this  large,  this  prograa  swaps  to  program  INDIGI.SV  for  A/D(CR> 
•conversions  and  swaps  to  OUTDIGI.SV  for  D/A  operations. (CRXCRl 
•To  output  data  collected  in  A/D  mode,  the  A/D  data  buffer  aust<CR> 

•be  written  to  a  disk  file  while  in  A/D  mode  and  then  read  into(CR) 

•the  D/A  data  buffer  after  switching  to  D/A  wode." 

10  ACCEPT  "(CR) 

•Please  enter  which  operation  will  be  performed, <CR) 

»  1;  A/D  conversions(CR) 

•  2:  D/A  conversions(CR) 

•  3:  exit(CR> 

•selection:" , OPTION 

IF  (OPTION. GT.l  .OR.  OPTION. LT, 3)  GO  TO  20 
TYPE  "(CRMCRXCR) 

•Please  select  options  from  the  list  only," 

GO  TO  10 
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c* ***##*****»»*********»*»*»**»*********»##*»*#***»***»#***#*»****###**#»»*»* 


Title:  OutDigi 
Author:  Lt  A) len 
Date:  Dec  82 

Function: 

This  prograa  handles  the  D/A  mode  options  in  the  DIGITIZE 
package.  The  DIGITIZE  package  is  a  three-program  package  that 
interactively  a ) Ions  the  user  to  select  different  operating 
features  of  the  Eclipse  A/D/A  device.  This  program;  however; 
can  be  operated  as  a  stand  alone  program. 

Environment: 

This  is  a  Fortran  V  proqram  that  has  been  designed  to  run 
on  a  mapped-RDOS  Eclipse  S/2S0  minicomputer  equipped  with  a 
Model  4331  single  board  converter. 

Compile  command: 

FORTRAN  OUTDIGI 

Load  command: 

RLDR/P  2/K  OUTDIGI  CLXSET  CHNSET  CNVSET  SEEIT  PAPER* 

REDBUF  SETUP  HEADER  WRTBUF  UARNNG  SAHCQNFIG4  eSAtlLIB? 

Comments: 

Refer  to  line  10  of  the  program  text  for  the  menu  options  of 
this  program. 

C  The  save  file  (.SM)  of  the  following  programs  are  required  in 

C  the  user's  directory  to  operate  the  DIGITIZE  package; 

C  DIGITIZE, INDIGI, OUTDIGI 

.  C*»*»**»»* *»***»»»»»»****» **»***»*#****»»**»*****»**»*#***#»*» *»*»»««*»*•»»»* 

EXTERNAL  IDS21  ;A/D  device  required  by  SAN 

EXTERNAL  IDS23  ?D/A  device 

C0HN0N  /  I  BUFF  /  IWAST  }A/D  data  buffer  required  by  SAN 
C0NN0N  /  IBUFO  /  IDATA3U6384)  ;D/A  data  buffer 
INTEGER  F1LEN AH ( 7 ), I0RBA( 16 );CL0CK, FIRST, NODE, DEVICE 

CALL  DSTRTUER)  ^always  initialize  device 

IF  (1ER.NE.1)  CALL  ERRORCDSTRT  error(CR)program  aborted") 

DEVI CE  =  23 
TYPE  "<CR> 

•Proqram  OUTDIGI *SV  executing  — >  the  device  is  in  D/A  mode” 

10  ACCEPT  ”<CR> 

•Please  select  which  operation  will  be  performed, <CR> 

»  1:  conversions? CR) 

»  2:  data  buffer  disp)ay<CR> 

»  3:  data  buffer  print<CR) 
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«  4:  data  buffer  erite  to  fiie<CR> 

*  5:  read  fro*  file  to  data  buffer(CR) 

«  6s  data  buffer  deiultiplexing(CR> 

*  7s  exit(CK) 

•selections", 10P 

IF  U0P.EQ.1)  CO  TO  20 

IF  (I0P.EQ.2)  GO  TO  40 

IF  (I0P.EQ.3)  GO  TO  40 

IF  ( I  OP • EQ » 4  >  GO  TO  80 

IF  U0P.EQ.5)  GO  TO  50 

IF  (1QP.EQ.6)  CO  TO  60 

IF  (I0P.EQ.7)  GO  TO  90 

WRITE  (10,1) 

GO  TO  10 

1  FORHAT  ("(CRXCRXCR) 

•Please  aake  selections  only  fro*  the  given  options") 

(^•••••••••••M »••••«•••«•«««««««««««•«•««••«««««««««•«•««««•••«•«•••»»•»••»•• 

20  CALL  CLXSET(DEVICE, CLOCK)  ;set  the  clock 

CALL  CHHSET( DEO  ICE, FIRST ,HQDE)  ;set  the  channel 
IDATA1X(CL0CK. OR. FIRST)  .OR.HODE) .0K.4000X 
25  ACCEPT  "(CR) 

•Do  you  eish  to  set  the  conversion  count  {1),<CR> 

•or  perform  an  error  check  (2)?“,IERR 

IF  (IERR.EQ.l)  GO  TO  30 
IF  (1ERR.EQ.2)  CO  TO  35 
URITE( 10,1 ) 

GO  TO  25 

CKtHHOOHHtHMOHIIHHmHiHlltHHIMOHHHHdOHMIlHHiliHHK 

30  CALL  CNVSET(IDATA2)  ;set  the  conversion  count 

CALL  HARNNG (CLOCK )  ;give  earning  Message  for  clock  set 
ACCEPT 

CALL  DOITWUORbA,  IDS23,  8,  IDATA1 ,  I  DAT  A2 ,  I  DA  T  A3 ,  IER) 

TTPE  "(CR) 

•Conversion  operation  conpleted" 

IF  (IER. HE. 1)  TYPE  "DOIT  error  ",1ER 

IF  (I0RBA(14).NE.40QQQK)  TYPE  "10RBAU4)  return  ",IQRBA(14) 

IF  ( IER.EQ. 1  .AND,  I  ORB A ( 14) . EQ. 40000K)  TYPE  "No  errors  reported" 

GO  TO  10 

40  CALL  SETUP(IFQR,IQP,ISTART,ISTOP)  ;get  the  parameters  specifying 
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;the  section  of  data  buffer  to  be 
^worked  with. 

C 

C  Display  te  user  requested  section  of  data  buffer. 

C 

IF  (I0P.EQ.2)  CALL  SEEII(IF0R,ISTART,IST0P,IDATA3,16384) 

C 

C  Print  the  header  and  the  user  requested  section  of  data  buffer. 

C 

IF  (10P.E0.3)  CALL  HEADER (DEV  ICE, FIRST , NODE, I D AT A2, IER, I  ORB A, CLOCK) 

IF  (I0P.EQ.3)  CALL  PAPER(IF0R,ISTART,IST0P,IDATA3,t8384) 

GO  TO  10 

ComiiiiiimHiHiHoiiiiiHMimHHiomMHiiuMomHiomiiimioiii 

35  INCREfhlOOO 
IDATA2SINCREH 

37  CALL  DOITW  (IORBA,  IDS23,  8,  IDATA1,  IDATA2 ,  IDATA3,  IER) 

IF  (IER.NE.l)  GO  TO  38 

IDATA2--IDATA2+INCREH 
IF  (1DATA2.GT. 18384)  GO  TO  38 
CO  TO  37 

38  IDATA2  =  IDATA2-INCREI1 

CALL  DOITW  (IORBA ,  IDS23,  8,  I  DAT  A 1 ,  IDATA2,  IDATA3,  IER) 

INCREP1  =  INT(  INCREM/10.0 ) 

IF  (1NCREN.NE.Q)  GO  TO  37 
TYPE  "(CR) 

•  DOIT  error  ",IER,"(CR) 

•on  conversion  count  ",IDATA2 
TYPE  “<7><?><7)" 

GO  TO  10 


CHHHOHOimHmHIIIMHHiltMIIOHHHIMHtOIMilOHIIliHlllillHOIK 


50  CALL  REDBUFUDATA3, 18384) 
GO  TO  10 


;let  the  user  read  specified  sections 
;of  a  file  into  the  data  buffer. 


CMmiimmHMIllHIHHMOHMIllHOMIHHHMmillHmillimiHIIOIH 


80  TYPE  “<CR> 

•The  data  buffer  will  be  dewultipler.ed  by  retrievinq(CR) 
•every  Nth  point  fron  a  specified  starting  point. (CR> 

•  <  CR  > 

•There  will  be  N-l  data  buffer  points  sKipped(CR> 
•between  each  two  dewultiplexed  points. (CR) 

«(CR) 

•The  first  data  buffer  point  is  nuwbered  one." 

ACCEPT  "(CR) 

•Please  specify, (CR) 

«  N:" ,  I  NTH 

ACCEPT  - 
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starting  points" ,I0NE 


« 


IF  (INTH.LT.2  .OR.  IOHE.CT.  16384)  CO  70  60 

IST0N16384/INTH 
I HTH-I HTH 
J--1QNE 

DO  65  1*1 ;IST0P 
IDATA3U) -IDATA31 J) 

J » J  +  IM7H 

65  CONTINUE 

DO  66  1  =  1  STOP 1  >16384 
1DATA311)S0 

66  CONTINUE 
GO  TO  10 


ComiHmoiHmHHHimtitHiHmiHsoHmiiiiiHooooiiiiiiiHiiii 


80  CALL  WRTBUF(IDATA3, 16384) 
GO  TO  10 


•Jet  the  user  write  specified  sections 
?of  data  buffer  to  file. 


CiiUmmHHOIIIIIHillHHIHHHtlHmtmHHIHmHtHOHHHUHII 


90  CALL  EXIT 
END 


oor>  n  c  n  <->  o  r;  o  r»  o  r>  o  r>  o  r>  r> 


C  Title:  InDigi 

C  Author:  Lt  Allen 

C  Date:  Dec  82 

function: 

This  prograa  handles  the  A/D  node  options  in  the  DIGITIZE 
package.  The  DIGITIZE  package  is  a  three-prograa  package  that 
interactively  allows  the  user  to  select  different  operating 
features  of  the  Eclipse  A/D/A  device.  This  prograa,  however, 
can  be  operated  as  a  stand  alone  prograa. 

Environaent : 

This  is  a  Fortran  V  prograa  that  has  been  desigined  to  run 
on  a  aapped-KDOS  Eclipse  S/250  ainicoaputer  equipped  with  a 
aodel  4331  single  board  converter. 

Coapile  coaaand: 

FORTRAN  INDIGI 

Load  coaaand: 

RLDR/P  2/K  INDIGI  CLKSET  CHNSET  CNVSET  SEEIT  PAPER* 

SETUP  HEADER  URTBUF  UARNNG  SANC0NFIG3  eSAHLIBI! 

Coaaents: 

Refer  to  line  10  of  the  prograa  text  for  the  aenu  options  of 
this  prograa. 

C  The  save  file  f.SV)  of  the  following  prograas  are  required  in 

C  the  user's  directory  to  operate  the  DIGITIZE  package, 

C  DIGITIZE, INDIGI, OUTDIGI 

CmHimmomHHmmHHHHiHmHmHmHHKitHmtHmimmi 

EXTERNAL  IDS21  ;A/D  device 

EXTERNAL  IDS23  ;D/A  device  required  by  SAN 

C0NN0N  /  I  BUFF  /  IDATA3U6384  )  ;A/D  data  buffer 

COHHQN  /  IBUFQ  /  IWA5T  ;D/A  data  buffer  required  by  SAN 

INTEGER  IURBA(ld), DEVICE, CLOCK, FIRST, LAST 
DEVICE=21 

TYPE  "<CR> 

•Prograa  INDIGI. SV  executing  — >  the  device  is  in  A/D  aode" 

CALL  DSTRT(IER)  ^always  initialize  device 
IF  (IER.NE.l)  CALL  ERROR! "DSTRT  error") 

10  ACCEPT  ~ <CR) 

•  Please  select  which  operation  will  be  perf orsed  ,  ( CR > 

»  1:  conversions<CR> 

•  2:  data  buffer  display(CR) 
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*  3:  data  buffer  print(CR) 

*  4:  data  buffer  arite  to  file(CR) 

*  5s  exit(CR) 

•selections", IOP 

IP  (I0P.EQ.1)  CO  TO  20 

IF  (I0P.EQ.2)  CO  TO  50 

IF  (I0P.EQ.3)  GO  TO  50 

IF  (I0P.EQ.4)  CO  TO  80 

IF  (I0P.EQ.5)  CO  TO  80 

WRITE  (10,1) 

GO  TO  10 

1  FORHAT  ("(CRXCRXCR) 

•Please  aake  selections  only  froa  the  given  options") 
£••••••••••••••••«••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

20  CALL  CLKSETtDEVICE , CLOCK)  ;set  the  clock 

CALL  CHNSETUlEOICE, FIRST, LAST)  ;set  the  channel 
IDATA1X  CLOCK.  OR.  FIRST) .OR. LAST 
TYPE  "<CR> 

•The  device  aay  give  an  error  for  conversion  counts(CR) 

•above  18073. (CR) 

«<CR> 

•The  error  check  option  ail)  return  the  aaxiaua  error(CR) 

•free  conversion  count  for  the  set  up  qiven.  The  conversion(CR) 

•clock  oust  alloa  for  repeated  conversion  calls  ahen  using(CR) 

•this  option." 

30  ACCEPT  “(CR> 

•Do  you  aish  to,(CR) 

*  1:  set  the  conversion  count(CR) 

*  2:  perfora  an  error  check(CR) 

•selections" , I  ERR 

IF  UERR.EQ.l)  CO  TO  40 
IF  (IERR.EQ.2)  GO  TO  35 
WRITE (10,1) 

CO  TO  30 


35  INCREHMOOO 
IDATA2=INCREH 

37  CALL  D0ITU(I0RBA,IDS21,8,IDATA1,IDATA2,IDATA3,IER) 
IF  (IER.NE.l)  CO  TO  38 
I1)ATA2*IDATA2  +  INCREH 
IF  UDATA2.GT.  18384)  GO  TO  38 
GO  TO  3/ 
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IDATA2SIDATA2* INCREN 


« 


ei 

<  <0 

I 


CALL  D0ITU(I0RBA>IUS21;A)1BATA1 ,  IDATA2  >IDATA3 .IER) 

INCREH=INT( INCREH/10.0) 

IP  (INCREN.NE.O)  GO  TO  37 
TYPE  “ (CR> 

•DOIT  error  ",IER,“<CR> 

•on  conversion  count  ",IDATA2 
TYPE  “<7)<7)<7>" 

GO  TO  10 

Ciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

40  CALL  CNVSEKIDATA2)  ;set  the  conversion  count 

CALL  NARNNG(CLOCX)  ;give  earning  wessage  for  clock  set 
ACCEPT 

CALL  D0IT«(IQRBA,IDS21,8,1DATAI,1DATA2,IDATA3,IER) 

TYPE  “<7><7><7><CR> 

•Conversion  operation  cowpleted" 

IF  (IER.NE. 1 )  TYPE  "DOIT  error  “,IER 

IF  ( I  ORB  A  (14)  <  HE.  40000  K)  TYPE  “IQRBAU4)  return  n,I0RBA(14) 

IF  UER.EQ.l  .AND.  IORBAI 14) .EQ.40000K)  TYPE  "No  errors  reported" 

GO  TO  10 

^••••••••••••••••••••••••« ««««»«»**«**»*«»«*«*»**#»»» ****»**»»*»»*********** 


50  CALL  SETUP(IFQR,IOP,ISTART,ISTOP>  jget  the  parameters  specifying 

? the  section  of  data  buffer  to  be 
;worked  with. 

C 

C  Display  the  user  requested  section  of  data  buffer. 

C 

IF  (I0P.EQ.2)  CALL  SE£IT(  I  FOREST  ART  /I  STOP,  I  DAT  A3;  16384) 

C 

C  Print  the  header  and  the  user  requested  section  of  data  buffer. 

C 

IF  (IQP.EQ.3)  CALL  HEADER ( DEVI CE , FIRST, LAST, IDATA2,IER,I0RBA, CLOCK) 

IF  U0P.EQ.3)  CALL  PAPER! IFOR ,  I  ST ART  > I STOP f I DAT A3 ,18384) 

GO  TO  10 


80  CALL  WRTBUFUDATA3, 18384) 
GO  TO  10 


; 1 et  the  user  write  specified  sections 
;of  data  buffer  to  file. 


C 


80  CALL  EXIT 
END 
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CHtHHHmilimiOHHHiiHIHIIHIilHHimHHIHHilHHmOllHOIH 


Title:  Cnvrt 
Author:  Lt  A I len 
Date:  Dec  82 

Function: 

This  prograa  converts  conversion  data  froo  the  foraat  used 
by  the  Eclipse  A/D/A  device  into  real  nunber  data  and  vice-versa. 

Coapile  Coaaand: 

FORTRAN  CNVRT 

Load  Conaand: 

RLDR/P  2000/N  CNVRT  COHLN  S0RT2  STATUS  DELCHC  FILCHC  8FLIB0 
Environoent: 

This  is  a  Fortran  V  prograa  that  has  been  designed  to  run  on 
a  aapped-RDOS  Eclpise  S/250  ainicoaputer. 

Coaaand  line: 

CNVRT  </R  or  /l)  input/1  [/Dl  output/0 

•here  "input"  and  "output"  are  any  legal  RDOS  filenames. 

Either  the  R  or  1  switch  aust  be  attached  to  CNVRT,  The  R 
switch  denotes  conversion  froe  device  foraat  to  real  and 
the  I  switch  denotes  conversion  froa  real  to  device  foraat. 

The  input  and  output  filenanes  can  be  typed  in  any  order, 
hoaever,  the  I  switch  should  aluays  be  attached  to  the 
input  file  and  the  0  switch  should  always  be  attached  to  the 
output  file, 

The  D  switch  can  only  be  attached  to  the  input  file,  and 
deletes  the  input  file  after  the  output  file  has  been  created. 

Coaaents: 

This  prograa  is  designed  for  use  with  conversion  data  that  was 
collected  with  or  will  be  output  by  the  device  set  at  an  operating 
range  of  +/-  5v. 

C  The  output  file  will  be  created  as  a  randon  file,  If 

C  it  already  exists,  the  original  file  will  be  deleted  first. 

C  The  input  file  cannot  be  larger  than  32788  disk  blocks,  There 

C  is  not  an  error  check  for  this  condition* 

C  This  prograa  requires  8K  of  extended  aeaory* 

ClIiOHHIItHtHHHIliHHIlHHHHHHttHIKIHHHIlHIIHHtiHHtHHIl 


COMMON  I W AST <  1024) 


;Nin  size  window  required  for 

^extended  Denary  setup 


non 


RD1SC:RDISC+UBLK 
IF  (RSUIT)  ILN-ILH- ( UBLK< 128 . ) 

IF  (ISUIT)  ILH  =  ILN- (UBLK»256 . ) 

IF  (AGAIN. EQ.l)  GO  TO  10  ;if  true/  have  not  finished  all 

{input  data 

30  CALL  CLOSE (2 / I ER ) 

IF  (IER.NE.l)  TYPE  “CLOSE  error“/lER,"uith  output  file" 

CALL  APPEND <2 /FILEO/2 /1ER) 

IF  (IER.NE.l)  TYPE  “APPEND  error" ,IER,“»ith  output  file" 

BYTS=ILN*4 

IF  (ISUIT)  BYTS  =  BYTS/2 
IF  (RSUIT)  START- (UBLK*12fi)+l 
IF  (1SU1T)  STARTMVIBLX*256)  +  1 
IF  (RSUIT)  CALL  URSEQ(2,REALNUH<START) ,BYTS,IER) 

IF  (ISUIT)  CALL  URSEQ ( 2 / l NTNUH (START) /6YTS/IER) 

IF  (IER.NE.l)  TYPE  “URSEO  error" ,IER,“iiith  output  file" 

CALL  RESET 

CmHHIHIimtmHHHtHHHHtHimHHilHtiiltHHHIKHHHtlHilHU 

Handle  the  D  seitch  option. 

CALL  DELCHC(F1LEI/FI) 

80  CALL  EXIT 
END 

*  CiHHtlllHKIlHHnmtOHHHMHHIiHiiiHHiOHHiHHHKmOfHHU 
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or»r»r>  oooo  o  t->  e>  o  o 


IF  (IER.NE.1)  TYPE  "OPEN  error" , IER, "with  output  file" 

Set  up  extended  neoory  to  hold  input  data.  The  8XU  of  extended 
•eiory  can  hold  8192  integer  elements  (to  be  converted  to  8192  real) 
or  4098  real  elenents  (to  be  converted  to  4098  integer). 

CALL  VHEH(EXTI1,IER) 

IF  (IER.NE.1)  TYPE  “VNEH  error", IER 

IF  (EXTH.LT.8)  CALL  ERR0R( "not  enough  extended  nenory") 

IF  (RSUIT)  CALL  HAPDF < 8 , 1UAST  ,  1 ,  IER)  ^retrieve  one-word  eleaents 
IF  (ISUIT)  CALL  HAPDF(8 ^IUAST^l ,2 /IER) {retrieve  t«o-#ord  elenents 
IF  (IER. HE. 1)  TYPE  "HAPDF  error", IER 


no************************************************************************* 


Coipute  the  nuuber  of  data  elenents. 

1LN:( IBLKS *256. )+(LASTBYT/2. ) 

IF  ( 1 SU I T )  ILNs(IBLKS*128.)+(LASTBYT/4.) 

IBLKS=IBLKS+1  ;nay  try  to  read  past  EOF 
AGAIN:  1 

Work  with  32-block  sections  of  input  data.  This  fills  the  8XU 
partition  of  extended  nenory. 

10  READBLKS IBLKS 

IF  (IBLKS. GT. 32)  READBLK=32  ;  32  *  258  =  8192  =  8KU  of  storage 
CALL  ERDB( 1 , IDISC ,0 ,READBLK >CHEC , IER ) 

IF  (IER.EQ.9)  GO  TO  12  ;ignore  EOF  error 
IF  (IER.NE.1)  TYPE  "ERD8  error", IER 

12  INDEX=0 

20  1NDEX=INDEX+1 

IF  (RSUIT)  CALL  IVF( IH0LD, INDEX) 

IF  ( 1SUIT )  CALL  VFIRHQLD, INDEX) 

IF  (RSUIT)  REALNUH ( INDEX) =FL0AT ( IHOLD ) /32768. *T0PV0LT 
IF  (ISUIT)  INTNUHUNDEX)  =  HIT (RH0LD/T0P VOLT *32788. ) 


IF  (RSUIT. AND. (INDEX, EQ. 8192))  GO  TO  25 
IF  (ISUIT . AND. (INDEX. EQ. 4096))  CO  TO  25 
IF  (FLOAT (INDEX) .LT.ILN)  GO  TO  20 
ACAIN-0 

25  UBLK5 I NT ( INDEX/256) *2 

IF  (ISUIT)  UBLK=IHT ( INDEX/ 25 6) 

IF  (RSUIT)  CALL  URBLX(2,RDISC, REALNUH, UBLK, CHECKER) 

IF  (ISUIT)  CALL  URBLX< 2 ,RDISC , INTNlin , UBLK, CHEC, IER) 

IF  (IER.NE.1)  TYPE  "URBLK  error", IER, "eith  output  file" 
D8LXSsINT( INDEX/ 256) 

IF  (ISUIT)  DBLKS=DBLKS*2 
I BLKS= 1BLXS-DBLKS 
ID1SC= IDISC+DBLXS 
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REAL  REALNUI1<8192),TOPVOLT,ILN,RHOLD 


INTEGER  FILEI(7),FILE0(7),RET,FI(2),F0(2),HS(2) 

INTEGER  LAST8YT, INDEX, CHEC,IHOLD,DBLKS,IBLKS 
INTEGER  INTNUMM094) 

INTEGER  READBLK,EXTH,BYTS, IDISC, RDISC, AGAIN, HBLK, START 

LOGICAL  ITEST,RSUIT,ISUIT 

DATA  TOPVOLT, FI, FO, RDISC, IDISC  /  5., 6*0  / 

»»*»»»«* »*»»»««» 

Retrieve  connand  line  files  and  verify  tno  exist. 

CALL  C0NLN(RET, HOLD, FILEI, FILED, HOLD, US, FI, FO, HOLD) 

IF  (RET.EQ.2)  CO  TO  3 

CALL  ERROR  (“The  connand  line  oust  contain  two  files.”) 

Determine  nhich  type  of  file  the  output  file  will  be.  Verify 
that  only  the  1  or  R  snitch  nas  attached  to  CNVRT. 

3  RSMIT  =  ITEST(MS(2)  ,14)  ; i f  true,  real  output  file 

I SWIT  =  I  TEST < US < 1 )  ,7)  ;if  true,  integer  output  file 
IF  (I SUIT. AND. .NOT.RSWIT)  GO  TO  A 
IF  (RSUIT. AND. .NOT. ISUIT)  GO  TO  A 
CALL  ERRORC'nust  include  /R  or  /l  snitch") 

Sort  the  files  and  verify  the  I  and  0  snitches. 

A  CALL  S0RT2(9,15,FILEI,FILE0,FI ,F0) 

Verify  that  the  filenanes  are  not  identical. 

CALL  FILCHC(FILEI  ,FILE0) 

Verify  that  the  input  file  exists  and  retrieve  it's  size. 

CALL  STATUS ( F ILEI ,IBLKS ,IASTBYT) 

Prepare  the  input  file  for  reading. 

CALL  OPEN (1, FILE 1 ,2,IER) 

IF  (IER.NE.l)  TYPE  "OPEN  error" ,IER,"nith  input  file" 

Prepare  the  output  file  for  nriting. 

CALL  DFILU(FILEO,IER) 

IF  (IER.EQ.13)  GO  TO  5  ?IER=13  inplies  the  file  does  not  exist 

IF  (IER.NE.l)  TYPE  "DF1LW  error" ,lER,"nith  output  file" 

5  CALL  CFILU(FILE0,2.TER> 

IF  (IER.NE.l)  TYPE  ”CF 1LH  error"  ,lER,"»ith  output  file" 

CALL  0PEN(2,FILE0,2,IER> 
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C**«**««*»««««**** «««««««**#**«•«*«**«*«* »•««*#* *«•*•«•»««««•«•*#««**«*««««*« 


Title:  Conv 
Author:  Lt  Allen 
Date:  Dec  A2 

Function: 

This  prograa  convolves  an  input  file  with  an  iapulse  response 
file*  The  filtered  output  is  written  to  a  separate  file. 

All  file  data  types  are  treated  as  real. 

Coapile  coaaand: 

FORTRAN/T  CONV 

Load  coaaand: 

RLDR/P  2000/N  CONV  COHLN  S0RT3  STATUS  LENCHC  RDBYTS  FILCHC11 
APS. LB  0FLIB0 

Environwent: 

This  is  a  Fortran  V  prograa  that  has  been  designed  to  run  on  a 
■apped-RDOS  Eclipse  S/250  ainicoaputer  equipped  with  a  node) 

130  array  processor. 

Coaaand  line: 

CONV  input/I  C/D3  output/0  filter/F  L/DD 

there  "input”, “output”  and  "filter"  are  any  legal  RDOS  filenaaes. 

The  input,  output  and  filter  filenaaes  can  be  typed  in  any  order, 
however,  the  1  switch  should  always  be  attached  to  the  input 
file,  the  0  switch  should  always  be  attached  to  the  output  file, 
and  the  F  switch  should  always  be  attached  to  the  filter  file. 

C  The  D  switch  can  only  be  attached  to  the  input  and  filter  files, 

C  and  deletes  these  files  after  the  output  file  has  been  created. 

C  Coaaents: 

C  The  output  file  will  be  created  as  a  randow  file.  If  it  already 

C  exists,  the  original  file  will  be  deleted. 

C  The  filter  file  can  be  up  to  512  points  long. 

C  The  input  file  cannot  be  over  32767  disk  blocks  long.  There  is  not 

C  an  error  check  for  this  condition. 

C  The  prograa  will  abort  if  the  output  filenaae  given  is  the 

C  sate  as  the  input  or  filter  filenaaes. 

REAL  WORK (2046)  ,DATA(iO240> ,ILN,0LN 

INTECER  RET ,SP,F1LE1(7) ,FI(2> , FILEOI 7 )  ,F0( 2)  ,FILER<7) ,FR(2) 

INTEGER  RLN  ,TLN  .TLOC  .START . F  fH .TOT RYTC 

INTEGER  FILL, READBK , lDISCbK ,0DibCBK , 1BLKS ,0BLKS ,CHEG , 1NIT 
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INTEGER  STEST,ELN,NUnBYTS,HAXREAD,ZERO,RBLKS,RBYTS 
INTEGER  CB1 (0:CBHAX)  ,CB2(0:CBMAX) ,CB3(0:CBHAX) 

INCLUDE  ''ARRAYP:F5APS.FR"  jiiust  include  in  any  AP  progra* 

C 

C  Initialize  the  AP. 

C 

CALL  APIN1T(NIL,NIL,IER) 

IF  (IER.NE.l)  CALL  ERRORTAPINIT  errorr") 

C 

C  Retrieve  coweand  line  files  and  verify  three. 

C 

CALL  COPtLN < RET ,SP,FILEI,FILEQ,FILER,SP,FI,FQ,FR) 

IF  (RET.NE.3)  CALL  ERRORC'coaaand  line  aust  specify  three  files") 
C 

C  Sort  the  files  and  verify  the  1/  0,  and  F  switches. 

C 

CALL  SQRT3(9,15,8,FILEI,FILEQ,FILER,FI,FQ,FR) 

C 

C  Verify  that  the  filter  file  exists  and  is  of  proper  length. 

C 

CALL  STATUS (FILER ,RBLKS,RBYTS) 

CALL  LENCHC( FILER, RBLKS,RBYTS, 1,512) 

RLNs(RBLKS*128)+(RBYTS/4)  ^filter  response  length 
T0TBYTS=RLN*4  jnuaber  of  byts  in  filter 
C 

C  Get  the  filter  response  data  and  load  it  into  to  the  top  of 
C  AP  aeaory. 

C 

CALL  RDBYTS(FILER,TOTBYTS ,W0RX ,512) 

CALL  CBSET (CB1,CBL,RLN,CBAX,Q,CBAAHI1,UQRK,IER) 

IF  (IER.NE.l)  TYPE"  CBSET  error  ",IER,"  loading  filter" 

CALL  VLDR(CBl) 

C 

C  Verify  that  the  input  file  exists. 

C 

CALL  STATUS (FILE I ,IBLKS,IBYTS> 

C 

C  Verify  that  the  output  filenaue  is  not  the  saae  as  the  input  or 
C  filter  filenames. 

C 

CALL  FILCHC(FILE0, FILER) 

CALL  FILCHCtFllEQ, FILED 
C 

C  Ready  the  output  file. 

C 

CALL  DF1LU(F1LE0,IER) 

CALL  CFILW(F1LE0,2,1ER) 

IF  (IER.NE.l)  TYPE  ” C  F I L  U  error"  ,1ER, "with  output  file" 

CALL  OPEN (2 ,F1LE0,2,IER) 

IF  (IER.NE.l)  TYPE  "OPEN  error" ,  IER,  "with  output  file" 

C 

C  Gather  paraaeters. 


152 


1 


4 


C 


« 


1 


c 

ILN!(lBLKS#l2fi.)+(IBYTS/4.)  {length  of  input  data 
IBLKSslBLKS+l  {nuaber  of  input  data  disk  blocks; 

{last  block  aay  not  be  full 
0LNsFL0AT(RLN) tILN-1 .  {length  of  output  data 
TL0C=2#RLN  ;AP  ueuory  location  where  input  data  can  be  loaded 
TLH=2048-TL0C  {length  of  convolution  input  section 

FILL-TLN-RLN  {length  of  zero  fill  for  the  first  set  of  input  data 

C 

C  Ready  the  input  file* 

C 

CALL  QPENU  /F1LEI ;1  ,IER) 

IF  (IER.NEi 1 )  TYPE  "OPEN  error" ,IER ,"with  input  file" 

C 

C  Set  the  CBSET  arrays  for  the  current  filter  size* 

C 

CALL  CBSET (CB1 ,CBL;TLH,CBAX,TLOC,CBAAHH,«ORK,IER) 

CALL  CBSET (CB2;CBL;TLN;CBAX;TL0C,CBAY,0,CBAZ,RLN,CBIHI1,RLN,IER) 

CALL  CBSET (CB3;CBL,TLN;CBAZ;RLN;CBAARH,U0RK;IER) 

C 

C  Set  counters. 

C 

IDISCBK-0 
0DISCBK:0 
STEST--0 
ZER0=F1LL 
RAXREAD364 
10  00  20  1=1 ,ZER0 

DATA(I)=0. 

20  CONTINUE 

IF  (STEST.EQ.O)  GO  TO  25 
00  24  LJSTART , FIN 
OATAd)-DATA(L) 

1  =  1  +  1 

24  CONTINUE 

25  CONTINUE 
C 

C  Load  up  the  OATA  array.  The  DATA  array  is  used  to  hold  both; 

C  input  and  output  data  by  perforaing  an  in-place  convolution 

C  as  the  VCONRZ  routine  does.  Each  output  data  save  section  is 
C  written  to  the  OATA  array  overwriting  the  first  RLN-1  points 
C  of  its  input  data. 

C 

READBX  =  I BLKS 

IF  (IBLXS.GT.HAXREAO)  READBK  =  f1AXREAD 

CALL  RDBLK  ( 1 , IDiSCBK ,DATA( I ) , READBX , IER ) 

IF  (IER.NE.1)  TYPE  "RDBLX  error , IER , "with  input  file" 

ELN  =  I  +  <  (READBX- 1 )  *128)  +  UBYTS/4 ) 

IF  (READBX. EO.HAXREAD)  ELN:I  +  (flAXREAD«12fl) 

DO  40  I  =  ELN ;  10240  {zero  fill  the  rest  of  the  DATA  arrey  so 
DATA ( I ) =  0 « 0  {the  convolution  can  overrun. 


{On  subsequent  reloading  of  the  DATA 
{array;  overlapping  data  and  data  to 
{close  to  the  bottou  of  the  array  to 
{allow  convolving  is  reloaded  at  the  top. 
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J=FILL-RLN  {starting  index  value  for  input  data  to  be  convolved 
X  =  0 


00  00  60  1  =  1  ,TLN 

J  =  J*1 

WORK (I»=DATA(J> 

60  CONTINUE 

CALL  VLDR  (CEtl ) 

CALL  VCQNRZ(CB2) 

CALL  VSTR(C£3) 

* 

1NIT=RLN+1 
DO  70  I=INIT,TLN 
K  =  K+ 1 

DATA(K)=UORK(I) 

70  CONTINUE 

STEST=ELN-(J*RLN) 

IF  (FLOAT(K) .CE.OLN)  CO  TO  74 
IF  <FLOAT(K+FILL). CE.OLN)  GO  TO  71 
IF  <STEST.LT. TLN)  CO  TO  75 

71  J= J-RLN 
CO  TO  80 

74  K=INT(0LN) 

STEST=TLN+1 

75  OBLKS= INT (K/128) 

START=J-RLN-(K-<0BLXS»128))+2 

FIN=ELN-1 

CALL  URBLK  <2,  ODISCBK,  DATA,  OBLKS ,  IER) 

IF  (IER.NE.l)  TYPE  "URBLK  error”, IER, ”*ith  output  file” 
CALL  CLOSE  <2,  IER) 

IF  (IER.NE.l)  TYPE  "CLOSE  error”, IER, "with  output  file” 
CALL  APPEND (2, FI LEO, 2 ,IER) 

TF  (IER.NE.l)  TYPE  "APPEND  error" , IER, "with  output  file" 

ODISCBK=ODISCBK+QBLKS 

ID1SCBK=IDISCBK+READBK 

1BLXS=1BLKS-READBX 

ZERQ=FILL-RLN 

MAXREAD  =  48 

OLN=OLN-( OBLKS* 128. ) 

IF  (STEST.LT. TLN)  CO  TO  10 

START=(0BLKS*128)+l 

NUHBYTS=0LN*4 

CALL  URSEQ  (2,  DATA(START) ,  NUHBYTS,  IER) 

IF  (IER.NE.l)  TYPE  "URSEQ  error”, IER, "with  output  file” 

CALL  RESET 
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1000  CALL  EXIT 
END 


C***«***ft**« *##*###**»#*#***#**#####*##***»«*## *#***************«*««*****«**§ 


to 
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C  Titles  FFT 

C  Author:  Lt  Allen 

C  Date:  Dec  82 

C  Function: 

C  This  prograu  computes  either  the  1024-point  or  2048-point  DFT 

C  of  an  input  file  of  real  elements*  The  input  file  is  augnented 

C  »ith  zeros  as  necessary  to  uake  the  input  file  the  correct 

C  size.  The  results  is  a  file  of  couple*  elements. 

C  Coupile  couuand: 

C  FORTRAN/T  FFT 

C  Load  couuand: 

C  RLDR/P  2000/N  FFT  COHLN  S0RT2  STATUS  LENCHC  TOFILE  DELCHC* 

C  APS. LB  fFLIBS 

C  Environuent: 

C  This  is  a  Fortran  V  prograu  that  has  been  designed  to  run  on  a 

C  uapped-RDOS  Eclipse  S/250  uinicouputer  equipped  uith  a  node) 

C  130  array  processor. 

C  Couuand  line: 

C  FFT  I/Sl  input/I  I/D3  output/0 

uhere  "input"  and  “output"  are  any  legal  RDOS  filenaues. 

The  input  and  output  filenaues  can  be  typed  in  any  order/ 
however,  the  1  snitch  should  always  be  attached  to  the  input 
file  and  the  0  switch  should  always  be  attached  to  the  output 
file. 

C  The  D  switch  can  only  be  attached  to  the  input  file/  and  deletes 

C  the  input  file  after  the  output  file  has  been  created. 

C  The  S  switch  denotes  that  the  1024-point  DFT  of  the  input  file 

C  will  be  couputed;  otherwise  the  2048-point  DFT  is  couputed. 

Cfteeooeeoioes  ««««*«««  ««««««*•«««««««««««««««<«««*«««««««««»««» 

INTEGER  RET,SP,FILEI(7),FILE0(7),FI(2),F0(2),XLN,XBLKS,HS(2) 

INTEGER  COUNT, CB1(0:CBNAX> ,CB2(0:CBHAX>,NUHBLK,LASTBYT 
LOGICAL  ITEST/SU1T/N0SU1T 

REAL  WORK ( 2048 ) ,PLAY(?Q48) ,FIRST,LAST,XFQRH(40?8) 

C 

C  Hap  al I  of  AP  ueuory. 

C 

C0MH0N  /  APHEH  /  WORK 

INCLUDE  "ARRAYP:F5APS.FR'‘  ?uust  include  in  any  AP  prograu 
C 

C  Initialize  the  AP  and  set  up  napping  window. 
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CALL  APIHIT(NIL  fU0RK  f 4 , tER> 

IF  (IER.NE.l)  CALL  ERROR < "APIH1 T  error") 

CALL  APHAP(U0RK,0,4,I£R) 

IF  (IER.HE.l)  CALL  ERRORPAPHAP  error") 

Retrieve  comiand  line  files  and  verify  only  teo. 

CALL  CQHLN(RET,SP,FIL£I,FILEO,SP,nS,FI,FO,SP> 

IF  (RET.NE.2)  CALL  ERRORPconsand  line  eust  specify  t«o  files") 

Detemine  ehich  length  DFT  will  be  computed. 

SUIT=ITEST(HS(2) ,13)  ;if  true,  the  1024  point 
N0$UITs .NOT .SUIT  -,if  true,  the  2048  point 

Sort  the  files  and  verify  the  I  and  0  switches. 

CALL  S0RT2(9,15,FILEI ,FILEQ,F1 ,F0) 

Verify  that  the  input  file  exists  and  retrieve  its  size* 

CALL  STATUS (FI LEI ,NUHBLX ,LASTBYT) 

XBLXS=NUHBLX+1  ;nueber  of  input  file  disk  blocks 

XLNs(NUMBLX»12fi)+(LASTBYT/4)  ;nunber  of  real  input  file  elements 

Verify  that  the  input  file  is  the  proper  length* 

IF  (NOSUIT)  CALL  LENCHC ( F I LE I  ,NUNBLK , LAST BYT, 16, 2048) 

IF  (SUIT)  CALL  LENCHC (F1LE1 ,NUNBLK ,LASTBYT ,16,1024) 

Get  the  input  file  data. 

CALL  0PEN(1 , F I L E 1 ,1 , 1 ER ) 

IF  (IER.HE.l)  TYPE  "OPEN  error  ",IER,"  eith  input  file” 

CALL  RDBLK< 1,0, WORK, XBLXS, COUNT, IER) 

IF  (1ER.EQ.9  .AND.  COUNT, EQ.NUHBLK)  GO  TO  50 
IF  (IER.NE.l)  TYPE  "RDBLX  error  “,IER,"  with  input  file" 

50  CALL  FCLOSE(l) 


Augeent  the  input  file  with  zeros* 


40 

C 

c 

c 


DU  60  I=XLN+1 ,2046 
UORK ( I ) =0 . 

CONTINUE 


Take  the  DFT. 


IF  (NOSUIT)  CALL  CBSET(CB1 ,CBL ,  1024  ,CBAXC , UORK, CBCU ,CWDFT , IER) 

IF  (SUIT)  CALL  CBSET(CB1,CBL, 512. CBAXC.UORX, CBCU. CUDFT, IER) 

IF  (IER.NE.l)  TYPE  "CBSET  error  %IER/  on  trans/ore" 


CALL  VFFTC(CBl) 
CALL  VBRC(CBl) 
CALL  VFFTR(CBl) 
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Arrange  the  AP  DFT  results  into  proper  fonat. 

XFORH ( 1 ) =  WORK ( 1 )  ;qet  the  first  elenent 

XF0RH(2)=0. 

IF  (NOSUIT)  GO  TO  59 

XF0RH( 1025) =U0RX(2)  ?qet  the  Riddle  eleaent  of  Matrix  operation 
XF0RH(  102-4)  =  0 . 

DO  63  1=3,1024  *,qet  the  first  half  of  the  Matrix 

XFORH  ( I )  =U0RKU )  operation 

63  CONTINUE 

K =20^9  ;qet  the  second  half  of  the  Matrix  operation 

DO  64  1  =  3)1024 ,2 
J  =  I+1 
K=X-2 

XFORfl(X) =  WORK  ( I ) 

K  =  K+1 

XFORIMX)  =  -l  .«U0RK(J) 

X  =  K- 1 

64  CONTINUE 
CO  TO  70 

59  XF0RH(2049)=U0RX(2) 

XF0RH(2050)=0. 

DO  61  1=3,204* 

XF0RH(I)=W0RXU) 

61  CONTINUE 

X=4097 

DO  62  1=3,2040,2 

J  =  I  ♦  1 

X=X-2 

XF0RN<K)=W0RX(1) 

X  =  X+1 

XF0RH(X)=U0RK(J) 

X  =  X*1 

62  CONTINUE 

Urite  results  to  file. 

70  IF  (NOSUIT)  CALL  T0FILE(FILEQ, XFORH, 4096) 

IF  (SUIT)  CALL  TOF ILEtFlLEO ,XF0R« ,2048) 

Handle  the  D  snitch  option. 

CALL  DELCHC(FILEI)FI) 

80  CALL  EXIT 
END 

CmHIHOIIHtHIHmiOlHHHHOHmHHIHIHMHHHmilfHHKHIII 
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Title:  IFFT 
Author:  Lt  Allen 
Date:  Dec  82 

Function: 

This  prograa  computes  either  the  1024-point  or  the  2048-point 
inverse  DFT  of  an  input  file*  The  input  file  aust  contain  coaplex 
elements  in  rectangular  foraat,  that  is  X  4  jY .  The  result  is 
a  file  of  real  elements. 

Coapile  coaaand: 

FORTRAN/T  IFFT 

Load  coaaand: 

RLDR/P  2000/N  IFFT  COfILN  S0RT2  STATUS  LENCHC  IHF1LE* 

TOFILE  DELCHC  APS. LB  BFLIBB 

Environaent: 

This  is  a  Fortran  V  prograa  that  has  been  designed  to  run  on  a 
aapped-RDOS  Eclipse  S/250  ainicoaputer  equipped  with  a  aodel 
130  array  processor. 

Coaaand  line: 

IFFT  [/SI  input/I  C/D3  output/0 

ahere  "input"  and  "output"  are  any  legal  RDOS  filenaaes. 

The  input  and  output  filsnaaes  can  be  typed  in  any  order, 
hoaever,  the  I  snitch  should  always  be  attached  to  the  input 
file  and  the  0  switch  should  always  be  attached  to  the  output 
file. 

The  D  switch  can  only  be  attached  to  the  input  file,  and  deletes 
the  input  file  after  the  output  file  has  been  created. 

The  S  switch  denotes  that  the  1024-point  inverse  DFT  of  the 
input  file  will  be  coaputed.  If  it  is  not  present,  the  2048-point 
inverse  DFT  is  coaputed. 

HilltmiliHHHHHIiHHHIUHHHIHHmmmHItOmiHHHMHmil 

INTEGER  RET,SP,FILEI(7 ) ,FILE0(7) ,FI (2) ,FQ(2) ,HS(2) /LENGTH 
INTEGER  CBl(0:CBnAX) , CB2 ( 0 : CBMAX ) 

LOGICAL  ITEST, SUIT, NOSUIT 
REAL  WORK ( 2048), PI, TABLE! 0:511) ,XF0RH( 2178) 

flap  all  of  array  processor  aeaory. 

C0NH0N  /  APHEH  /  UORX 

INCLUDE  ”ARRAYP:F5APS.FR  ;nust  include  in  any  AP  prograa 
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C  Initialize  the  AP  and  set  up  napping  aindoa. 

C 

CALL  APINIT(NIL,U0RX,4,IER) 

IF  (1ER.NE.1)  CALL  ERRQRl" AP1NIT  error") 

CALL  APHAP(U0RX,0,4,I£R) 

IF  (1ER.NE.1)  CALL  ERRORTAPHAP  error") 

C 

C  Retrieve  coauand  line  files  and  verify  only  tao. 

G 

CALL  COHLN(RET,SP,FiLEI,FILEO,SP,HS,FI,FO,SP) 

IF  (RET. HE, 2)  CALL  ERRORT coauand  line  Bust  specify  tao  files") 

C 

C  Deteraine  which  length  inverse  DFT  ail  I  be  conputed, 

C 

SHIT=ITEST(NS(2) >13)  *if  true,  the  1024-point 
NOSUIT*. HOT. SUIT  gif  true,  the  2046-point 

C 

C  Sort  the  files  and  verify  the  I  and  0  saitches. 

C 

CALL  S0RT2(9,15,FILEI,FILEQ,FI,F0> 

C 

C  Verify  the  input  file  exists  and  retrieve  its  size. 

C 

CALL  STATUS(FILEI,IBLKS,IBYTS) 

C 

C  Verify  that  the  input  file  is  the  proper  length. 

C 

IF  (SHIT)  CALL  LENCHC(FILE1  ,IBLKS,IBYTS, 204ft, 2048) 

IF  (HOSWIT)  CALL  LENCHC <  F I  LEI , I BLKS , I BYTS , 4096 , 4096 ) 

C 

C  Cet  the  input  file  data. 

C 

IF  (SUIT)  CALL  IHFILE(FILEI ,0,9 , XFORH ,1152)  ;nust  read  9  disK 

;blocks  to  get  1025  points 

IF  (NOSUIT)  CALL  INFILE(FI LEI, 0,17 , XFORH, 2 17ft) ;aust  read  17  disk 

jhlocKs  to  get  2049  points 
C 

C  Set  up  the  cosine  table  that  is  required  for  inverse  DFT 

C  operations  of  equal  to  or  aore  than  1024  points.  This  table 

C  could  be  set  up  identically  for  other  inverse  DFT  operations. 

C 

PI*4.«ATAN( l . ) 

DO  55  1*0,511 

TABLE (I)=C0S( (2.«PI*FL0AT(I) >/204ft. ) 

55  CONTINUE 
C 

C  Arrange  the  input  data  into  AP  inverse  DFT  foraat  and  provide 
C  scaling. 

C 

IF  (NOSUIT)  GO  TO  60 

WORK ( 1 )*XF0RN(1)/512. 

W0RK<2>  =  XF0RF)(  1025)  /512 . 

DO  59  1*3,1024 
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UQRK(I)  =  XFORH(  D/512. 

59  CONTINUE 
CO  TO  70 

60  W0RK(1)=XF0RH<1)/1024, 

H0RK(2)=XF0RH(2049)/lO24. 

DO  61  1=3,2048 

il0RK(I)  =  XFQR(1(I)/1024« 

61  CONTINUE 

Set  the  length  for  inverse  DFT  operation* 

IF  (NOSUIT)  LENGTH-1024 
IF  (SUIT)  LENGTH=512 

Take  the  inverse  DFT* 

CALL  C6SET (CB1 ,CBL, LENGTH, CBAXC , WORK ,CBCU,CUIFTR,CBAAflN, TABLE, 

>CBERHASK ,  APHALLER , IER) 

IF  (IER.NE.l)  TYPE  "CBSET  error  “,IER,"  on  transform" 

CALL  VFFTR(CBl) 

CALL  CBSET(CB2,CBL, LENGTH, CBAXC, UQRK,CBCU,CUIFTC,CBERHASK, APHALLER, IER) 
IF  (IER.NE.l)  TYPE  “CBSET  error  “,IER,“  on  conplex“ 

CALL  VFFTC ( CB2  > 

GALL  VBRC(CBl) 

Write  the  results  to  file. 

IF  (SUIT)  CALL  T0FILE( FILED , WORK,  1024) 

IF  (NOS'JIT)  CALL  TQFILE(FILE0,UQRK,2Q48) 

Handle  the  D  switch  option. 

CALL  DELCHCiFILEI ,FI ) 

BO  CALL  EXIT 
END 
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C  Title:  flag 

C  Author:  Lt  Allen 

C  Hate:  Dec  62 

C  Function: 

C  This  prograa  takes  an  input  file  of  either  1024  or  2048  coaplex 

C  elements  and  computes  the  corresponding  aaqnitude  file.  The 

C  result  is  a  file  of  real  elements. 

C  Coipile  coaaand: 

C  FORTRAN/T  HAG 

C  Load  coaaand: 

C  RLDR/P  2000/N  HAG  COHLN  S0RT2  STATUS  LENCHC  TOFILE  DELCHC* 

C  INFILE  APS. LB  QFL1BS 

C  Environnent: 

C  This  is  a  Fortran  V  prograa  that  has  been  designed  to  run  on  a 

C  napped-RDOS  Eclipse  S/250  ninicoaputer  equipped  aith  a  aode) 

C  130  array  processor. 

C  Coaaand  line: 

C  NAG  [/SI  input/I  C/D]  output/0 

C  ahere  "input"  and  "output"  are  any  legal  RDOS  filenaaes. 

C  The  input  and  output  filenaaes  can  be  typed  in  any  order, 

C  however,  the  1  switch  should  always  be  attached  to  the  input 

C  file  and  the  0  switch  should  always  be  attached  to  the  output 

C  file. 

C  The  D  switch  can  only  be  attached  to  the  input  file,  and  deletes 

C  the  input  file  after  the  output  file  has  been  created. 

C  The  S  switch  denotes  that  the  input  file  contains  1024  coaplex 

C  eleaents,  otherwise  2046  coaplex  eleaents  are  assuaed. 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXKX 

IHTECER  RET ,SP ,F1LE1(7) ,F1LE0(7) ,F1 (2) ,F0(2) ,NS(2) 

INTEGER  CB1 (0:CBHAX) , I BLXS , I BYTS 
REAL  U0RX12048) ,ANSkM  4096) 

LOGICAL  ITEST, SUIT, N0SUIT 
C 

C  Nap  all  of  AP  aeaory. 

C 

C0HN0N  /  APHEH  /  U0RK 

INCLUDE  “ARRAYP:F5APS.FR"  jnust  include  in  any  AP  prograa 
C 

C  Initialize  the  AP  and  set  up  napping  window. 

C 
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CALL  APINIT(NIL,U0RX,4,IER) 

IF  (IER.HE.l)  CALL  ERRORC'APINIT  error") 

CALL  APHAP(U0RX,0,4  ,IER) 

J  IF  (IER.HE.l)  CALL  ERRORTAPRAP  error") 

Retrieve  cowwand  line  files  end  verify  only  teo. 

CALL  CORLN(RET,SP,FILEI,FILEO,SP,nS,FI,FQ,SP) 

IF  (RET. HE. 2)  CALL  ERRQRC’coewand  line  oust  specify  teo  files") 

Detereine  which  length  Magnitude  will  be  cowputed. 

SUIT=ITEST(HS<2),13)  *,if  true,  the  1024  element 
NOSUIT*. NOT. SUIT  \ii  true,  the  204ft  eleaent 

Sort  the  files  and  verify  the  I  and  0  switches. 

CALL  SQRT2(9,15,FILEI ,FILE0,FI,F0) 

Verify  that  the  input  file  exists  and  is  the  proper  length. 
CALL  STATUS(F1LEI,IBLXS,IBYTS) 

IF  (HOSUIT )  CALL  LENCHC(FILEI  ,IBLXS,IBYTS, 4096, 4096) 

IF  (SUIT)  CALL  LEHCHC ( FI LEI ,1BLXS,1BYTS ,2048,2040) 

CALL  CBSET(CB1 ,CBL,1024,CBAZC ,UORK,CBAXC ,U0RX,IER) 

IF  (IER.HE.l)  TYPE  "CBSET  error  ",IER,“  with  square" 

IF  (SUIT)  GO  TO  55 

X=0 

DO  52  1=0,16,16 

CALL  IHFILE(FILEI,I ,16,UORX ,2048) 

CALL  VSHA(CBl) 

DO  52  J  =  1 ,1024 
X*X*1 

AHSU(X) =S0RT (U0RX( J ) ) 

52  CONTINUE 
GO  TO  70 

55  CALL  INFILE (FILE1 ,0,16,U0RK ,2048) 

CALL  VSRA(CBl) 

Unite  results  to  file. 

70  IF  (HOSUIT)  CALL  TOFILEIFILEO,  ANSI), 2048) 

IF  (SUIT)  CALL  T0FILE( F1LE0, WORK, 1024) 

Handle  the  D  switch  option. 

CALL  DELCHC(FILE1,FI) 


;Get  a  section  of  input  data. 
{Cowpute  the  square  of  the 
;wagnitude. 


;Take  data  out  of  window. 
;Get  next  section. 


I 


80  CALL  EXIT 
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Title:  Mult 
Author:  Lt  Allen 
Date:  Dec  82 

Function: 

This  program  multiplies  the  individual  elements  of  two  1024-point 
or  two  2048-point  eieaerc  files  together  to  fora  a  third  file. 

The  tuo  files  must  have  matching  data  types  (either  real  or 
coaplex),  which  will  oe  the  data  type  of  the  third  file. 

Coapile  coaaand: 

FORTRAN/T  MULT 

Load  coaaand: 

RLDR/P  MULT  COHLN  S0RT3  STATUS  LENCHC  INFILE  TOFILE* 

DELCHC  APS. LB  HFL188 

Environaent: 

This  is  a  Fortran  V  program  that  has  been  designed  to  run  on  a 
aapped-RDQS  Eclipse  S/250  minicomputer  equipped  with  a  aodel 
ISO  array  processor. 

Coaaand  line: 

MULT  LC/C  or  /R]/S]  input/I  C/Dl  output/0  filter/F  C/D3 
where  "input" , “output"  and  “filter"  are  any  legal  RODS  filenames, 

The  /C  or  /R  switch  must  be  included  and  signifies  either  coaplex 
or  real  data  files,  respectively. 

The  S  switch  denotes  that  the  input  file  contains  1024  elements. 
If  it  is  not  present,  it  is  assumed  that  there  are  2046  elements 
in  the  input  file, 

The  input,  output  and  filter  filenames  can  be  typed  in  any  order, 
however,  the  1  switch  should  always  be  attached  to  the  input 
file,  the  0  switch  should  always  be  attached  to  the  output  file, 
and  the  F  switch  should  always  be  attached  to  the  filter  file. 

The  D  switch  can  only  be  attached  to  the  input  and  filter 
files,  and  deletes  these  files  after  the  output  file  has 
been  created. 

C«**«*«S*«««*««*«XK««««K ««•*•«*«« «««««**«« ««t ««««<<«««« 


C 

c 


INTECER  RET,SP,FILE1(7),FILE0(7),F1LER(7),FI(2),F0(2),FR(2),NS(2) 
INTEGER  CB1 ( 0 :CBMAX) , IBLKS , 1BYTS ,RBLKS ,RBYTS 
INTEGER  STOP, SHE 

REAL  WORK ( 1024 > ,PLAY< 1024 >,ANSU(40?6> 

LOGICAL  ITEST , S U I T , HOSW 1 T 


Map  all  of  AP  memory. 
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i 


*  9 

. 


c 

COItnOH  /  APHEN  /  WORK  ,PLAY 

INCLUDE  “ARRAYP:F5APS.FR"  ?»ust  include  in  any  AP  prograu 
C  ' 

C  Initialize  the  AP  and  set  up  sapping  window. 

C 

CALL  APINIT(NIL,U0RX,4,I£R) 

IF  (IER.NE.1)  CALL  ERRORCAPINIT  error“) 

CALL  APHAP(U0RX,0,4,IER) 

IF  (IER.NE.l)  CALL  ERR0R<  “API1AP  error") 

C 

C  Retrieve  coiwand  line  files  and  verify  three* 

C 

CALL  CQHLN(RET,SP,FILEI,FILEO,FILER,HS,FI,FO,F.R) 

IF  (RET.NE.3)  CALL  ERRQRC'coauand  line  aust  specify  three  files") 

C 

C  Detemine  the  elewent  length  of  the  input  file* 

C 

SUIT=ITEST(«S(2),13)  ;if  true,  1024  eleuents 

NOSUIT- .NOT. SUIT  ;if  true,  2048  elements 

IF  (SUIT)  SIZE=2048 
IF  (NOSUIT)  SIZEM096 
C 

C  Sort  the  files  and  verify  the  I,  0,  and  F  switches. 

C 

CALL  SORT 3 (9, 15, 18, FILE I , FILEO, FILER, FI, F0,FR) 

C 

C  Verify  that  the  input  and  filter  files  exist  and  retrieve  their 
C  size. 

C 

CALL  STATUS (FILE  I, IBLXS,IBYTS) 

CALL  STATUS ( FI LER,RBLKS ,RBYTS) 

C 

C  Determine  the  type  of  data  file  eleuents. 

C 

IF  t ITEST ( US ( 1 ) ,11) )  CO  TO  50  ;couplex  data 

IF  (ITESTdlS(l) ,3))  GO  TO  60  ;real  data 

CALL  ERRORC'prograu  naue  iiust  have  either  /C  or  /R  attached") 

CimitlHOHttHHIlHHIHIIHilHIimHIHillHIHHHmiHHItHmHHHmH 

C 

C  This  section  of  code  perfortis  a  couple*  uultipl  ication. 

C 

50  CALL  CBSET(CB1,CBL, 512, CBAZC, WORK, CB AX C , WORK , C B A YC , PLAY, IER) 

IF  (IER.NE.l)  TYPE  "CBSET  error  ",1ER,"  uith  couplex" 

C 

C  Verify  the  input  and  filter  file  lengths  for  couplex  data. 

C 

CALL  LENCHC(FILEI,1BLXS,IBYTS, SIZE, SIZE) 

CALL  LEHCHC(F  1LER ,RBLKS ,FtBYTS ,S1ZE ,SI2E> 

IF  (SUIT)  ST0P=8 
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IF  INOSWIT)  ST0P=24 


K=0 

'  DO  52  1  =  0, STOP, 8 

CALL  INFILE(FILEI,I,8,WQRK,1024) 

CALL  INF  I LE( FILER ,1 ,8,PLAY ,1024) 

CALL  VHCA(CBl) 

DO  52  J=1 ,1024 
K=K*1 

ANSW<K) =WORK(J ) 

52  CONTINUE 
C 

C  Write  results  to  file* 

C 

CALL  TQFILE(FILEQ,ANSU,SIZE) 

CO  TO  ao 

c* #**#**##«*#******« ***#*#*« t ####«#*##*«*##* ************************ «*««*«««« 
c 

C  This  section  of  code  perfoms  a  real  Multiplication. 

C 

60  CALL  CBSET(CB1,CBL, 1024, CBAZC, WORE, CBAXC,WORX,CBAYC, PLAY, IER) 

IF  (IER.NE.l)  TYPE  “CBSET  error  ",IER,‘'  iith  real" 

C 

C  Verify  the  input  and  filter  file  lengths  for  real  data. 

C 

CALL  LENCHC(FILEI,IBLKS,IBYTS, SIZE, SIZE) 

CALL  LENCHCt FILER, RBLKS,RBYTS, SIZE, SIZE) 

IF  (SUIT)  STQP=0 
IF  (NOSWIT)  ST0P=8 

\ 

K  =  0 

DO  62  1  =  0, STOP ,8 

CALL  INFILE(FILEI,1 ,8, WORK, 1024)  ;Cet  input 

CALL  INF1LEIF1LER,!  ,8, PLAY  ,1024)  *,and  filter  data 

CALL  VHRA(CBl)  ;and  perforu  a  real  Multiplication. 

DO  62  J=1 ,1024 

K  =  K+1 

ANSW<  K) -WORK(J) 

62  CONTINUE 
C 

C  Write  results  to  file. 

C 

CALL  TOFILE(FILEQ,ANSW,SIZE) 

GO  TO  80 


;Get  input 
;and  filter  data 

;and  perforu  a  couplex  Multiplication. 


c 

C  Handle  the  D  snitch  option. 
C 

80  CALL  DELCHC ( FILEI ,FI ) 
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CALL  DCLCHC (PILER/FR) 

CALL  EXIT 
'END 
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Appendix  E 

User  1 s  Manual 
and 

Source  Code 
for 

Filter  Design  Software 


User  1 s  Manual 

for  Interactive  Filter  Design 
with  Program  LPFIR 


This  user's  manual  explains  how  to  adjust  the  filter 
design  parameters  in  program  LPFIR  to  obtain  the  filter  that 
most  closely  approaches  the  user's  specifications.  It  also 
explains  how  to  set  up  a  macro  file  to  allow  program  LPFIR 
to  be  used  with  other  programs  to  design  filters  in  an  inter¬ 
active  environment.  This  macro  should  be  executed  on  a 
Tetronix  graphics  terminal  interfaced  with  the  Eclipse  com¬ 
puter.  The  user  should  also  verify  that  the  array  processor 
has  been  initialized. 

Macro  File  Setup 

The  save  file  (.SV)  of  the  following  programs  are  re¬ 
quired  in  the  user's  directory  to  execute  the  macro  file, 

LPFIR , FFT, MAG , FILTPLOT 

The  macro  file  can  be  built  using  the  SPEED  editor. 

The  macro  filename  chosen  by  the  user  should  be  appended  with 
the  . MC  extension  when  entering  the  editor.  The  following 
command  would  be  used  to  enter  the  editor  and  build  a  macro 
file  named  FILTER. 

SPEED  FILTER. MC 

Once  in  the  editor,  the  user  should  insert  the  following 
character  string  with  the  I  command. 

LPFIR  PFILE/P  FFILE/F ;  FFT/S  FF1LF./I/D  CFILE/O; 

MAG/S  CFILE/I/D  LOGMAG/O ; FILTPLOT/L  LOGMAG 

The  user  should  refer  to  the  source  code  heading  of 


each  program  for  a  description  of  the  switch  definitions  and 
data  files.  After  the  above  macro  file  has  been  executed, 
the  user's  directory  will  contain  the  following  files. 


PFILE  a  parameter  file  describing  the 

filter 

LOGMAG  a  file  containing  the  magnitude  of 

the  1024-point  DFT  of  the  filter 
impulse  response 

Macro  Execution 

The  macro  file  can  be  executed  by  typing  the  macro 
filename  with  or  without  the  . MC  extension.  Program  LPFIR 
was  not  designed  for  use  on  a  Tetronix  graphics  terminal. 

This  section  of  the  macro  file  can  be  executed  on  the  Tet¬ 
ronix  terminal,  however,  the  screen  must  be  manually  erased 
when  necessary  by  the  user  depressing  the  PAGE  key.  The  user 
can  also  allow  this  section  of  the  macro  to  be  executed  on 
the  non-graphics  terminal  and  then  switch  to  the  Tetronix 
terminal  prior  to  execution  of  the  plotting  section  of  the 
macro. 

Parameter  Ad  justment 

The  user  must  begin  the  parameter  adjustment  sequence 
with  a  filter  design  that  does  not  generate  a  program  error. 
To  obtain  an  initial  design,  specify  the  desired  filter  with 
a  set  of  fairly  relaxed  parameters.  The  following  guide  may 
be  helpful. 


N 


n  <j« 


1.  small  filter  length,  20-50  points 

2.  large  band  lengths,  .05-. 10 

3.  large  transition  regions,  .05-. 10 

4.  low  weight  factors,  5-20 

The  grid  density  is  a  factor  affecting  the  resolution  of  the 
filter,  much  like  the  filter  length.  It  should  be  chosen  to 
be  16  for  the  most  resolution. 

The  deviation  numbers  that  are  displayed,  while  the  fil¬ 
ter  is  being  designed,  are  an  indication  of  how  close  the  fil¬ 
ter  is  approaching  the  design  parameters.  If  the  magnitude 
of  the  numbers  remains  less  than  1,  the  design  will  generally 
be  reasonable.  . 

A  design  example  will  be  given  to  clarify  the  design 
sequence.  The  example  will  design  a  notch  filter  to  remove 
a  tone  located  at  . 1  on  the  frequency  scale.  The  initial 
design  for  such  a  filter  is  shown  in  Fig  1. 

The  filter  length,  with  respect  to  being  an  odd  or  even 
number,  appears  to  affect  the  program's  ability  to  design  a 
filter.  The  user  can  determine  which  type  of  filter  length 
is  best  for  the  given  design,  by  holding  all  other  parameters 
constant  and  changing  only  the  filter  length.  The  result  of 
doing  this  for  the  design  example  is  shown  in  Fig  2.  Since 
the  odd  filter  length  yielded  the  better  design,  all  sub¬ 
sequent  filter  lengths  will  be  odd. 

Filters  of  larger  lengths  can  have  sharper  transition 
regions  and  narrower  bands.  Therefore,  the  next  steps  involve 
increasing  the  filter's  length  until  a  filter  with  an  aceept- 
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able  transition  and  bandwidth  are  obtained.  For  the  design 
example,  the  filter  length  was  increased  to  165  points  with 
the  result  shown  in  Fig  3.  Since  the  ripple  appears  uneven, 
this  filter  was  on  the  verge  of  not  converging.  The  ripple 
should  be  improved  before  other  parameters  are  varied.  The 
filter  length  was  reduced  to  95  points  with  the  results  shown 
in  Fig  4. 
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The  number  of  ripples  in  the  bandstop  band  indicates 
that  the  transition  and  bandstop  width  can  be  reduced.  The 
final  result  of  several  attempts,  that  varied  only  the  cutoff 
frequencies,  is  shown  in  Fig  5. 
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The  stopband  contains  only  one  ripple.  This  indicates 
that  the  width  of  the  stopband  and  transition  regions  cannot 
be  decreased  significantly  without  increasing  the  filter 
length.  An  attempt  to  do  this  without  increasing  the  filter 
length  caused  the  ripple  to  increase  as  shown  in  Fig  6.  The 
result  of  increasing  the  filter  length  only  gave  much  better 
results  as  shown  in  Fig  7. 
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The  cutoff  frequencies  were  again  varied  to  reduce  the 


length  of  the  bandstop  to  only  one  ripple  centered  on  the 
desired  notch  frequency.  The  final  filter  design  is  shown 
in  Fig  8. 
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C  file  and  is  66  bytes  long.  Both  files  are  aleays  deleted  prior 

C  to  being  created. 

C  The  filterscan  have  a  naxiaun  of  10  bands. 

INTEGER  PFILE(7),PF(2),SP,RET,FFILE(7),FF(2) 

LOGICAL  SET , (TEST 

Retrieve  the  coaaand  line  files. 

CALL  COULHfRET /SP,PFILE,FFILE,SI>,SP/PF ,FF,SP) 

IF  (RET.EQ.l)  GO  TO  45  {if  only  one  file 

IF  (RET.EQ.2)  GO  TO  50  {if  two  files 

GO  TO  600 

45  SET=ITEST(PF(1> >0)  {check  for  P  snitch 
IF  (SET)  GO  TO  55  ; i f  present)  continue 

GO  TO  600  {if  not,  abort 

50  CALL  S0RT2(16,6,PFILE,FFILE,PF,FF)  {sort  the  coaaand  line  files 


55  CALL  CH0ICE(PFILE,FFILE,PF ,FF,RET) 


{obtain  the  paraaeter  file 


IF  (RET.EQ.l)  GO  TO  900  {if  no  second  file,  then  done 
60  CALL  DESIGN(PFILE,FFILE,FF)  {if  second  file  present, then  design  filter 

The  D  saitch  option  is  considered  only  if  a  filter  aas  designed. 

CALL  DELCHC(PFILE,PF) 

GO  TO  900 

600  TYPE  “(CR> 

•Incorrect  couaand  line.  Consult  prograa(CR) 

•docuaentation  for  the  correct  syntax. <CR>" 

900  CALL  RESET 
CALL  EXIT 
END 

*««*#««*»«#****#*«*««*§*#*###**«»**#«* 
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Title:  LPFir 
Author:  Lt  Allen 
Date:  Dec  82 

Function: 

This  prograa  utilizes  the  Parks-HcClel lan  algorithm  to  design 
linear  phase  FIR  filters.  It  can  be  used  to  design  loapass; 
highpass;  uultiband,  differentiators  and  Hilbert  transfora  filters 
with  an  iapulse  response  beteeen  3  and  258  points. 

Environaent: 

This  is  a  Fortran  V  prograa  that  has  been  designed  to  run  on 
a  aapped-RDOS  Eclipse  S/250  ainicoaputer .  > 

Coapile  coaaand: 

FORTRAN  LPFIR 

Load  coaaand: 

RLDR/P  LPFIR  C0HLN  S0RT2  FILCHC  CHOICE  STATUS  RDBYTS  SHOPAR* 

NEUSCR  DESIGN  REHEZ  MATE  EFF  D  GEE  OUCH  ttFLlBO 

Coaaand  line: 

LPFIR  paraaeter/P  C/E]  C/D]  Cfilter/F  C/L]  ] 

ahere  “paraaeter"  and  ‘'filter*'  are  any  legal  RDOS  filenaae 

The  P  saitch  aust  always  be  attached  to  the  paraaeter  filenaae.  A 
paraaeter  file  will  be  created  with  the  filter  paraneters 
interactively  specified  by  the  user.  The  filter  paraaeters  will 
be  displayed  and  can  be  changed  if  requested  by  the  user. 

The  E  saitch  denotes  that  the  paraaeter  file  already  exists.  The 
filter  paraaeters  will  be  display  and  can  be  changed  it  requested 
by  the  user. 

The  filter  filenaae  and  F  switch  denotes  that  the  filter  specified 
by  the  paraaeter  file  ail)  be  designed  and  the  iapulse  response 
stored  under  the  filter  filenaae.  The  F  saitch  aust  be  attached. 

The  L  saitch  denotes  that  a  listing  for  the  filter  design  will 
be  sent  to  the  printer. 

If  the  paraaeter  and  filter  files  are  both  given;  they  can  be 
typed  in  any  order. 

The  D  saitch  can  only  be  attached  to  the  paraaeter  file  if  a 
filter  file  is  also  specified.  This  switch  deletes  the  paraaeter 
file  after  the  filter  file  has  been  created. 

Coaients: 

The  iapulse  response  file  will  be  created  as  a  randou  file  and  will 
contain  real  data.  The  paraaeter  file  is  also  created  as  a  randoa 


u  uu  u  u  u  o  u  u u  o  u  u  u  u  uuu  u  u  u  u  u  o  o  o  u  o 
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Title:  Choice 
Author:  Lt  Alien 
Date:  Dec  62 

Function: 

This  routine  is  used  by  program  LPFIR  to  collect  filter  design 
parameters  frot  the  user. 

Coipile  command: 

FORTRAN  CHOICE 

Load  coeaand: 

RLDR/P  eain  program  CHOICE  STATUS  RDBYTS  SHOPAR  NEUSCR  etc 
Coaaents: 

The  variables  that  are  passed  to  this  routine  have  the  following 
meaning, 

PFILE/PF  the  filename  that  the  filter  design  parameters 

ail)  be  mritten  to  and  snitch  array 

FFILE/FF  the  filename  that  will  contain  the  filter 

impulse  (if  one  was  requested  by  the  user) 
and  switch  array 

RET  this  integer  variable  is  sent  to  the  routine 

set  to  1  (if  FFILE  does  not  exist)  or  2 
(if  the  FFILE  does  exists) 

The  filenames  and  switch  arrays  are  of  the  type  returned  by  the 
COHARG  routine. 


Mil#**#**#* «««**«« *«*««««!«««« lift** «**«« ««««««« «*««*««««««•«««««««««« «*«««« 


SUBROUTINE  CHOICE(PFILE, FFILE, PF,FF, RET) 

INTEGER  PFILE(7),FFILE(7),PF(2),FF(2) , YES ,N0 , KEEP  ,EX I  ST ,B YTS 
INTEGER  &LKS , LASTS YT , RET 
REAL  PARAH4) 


LOGICAL  ITEST , SET 

H0--0 
YES  =  1 

SET*ITEST(PF(l)  ,11)  ;check  for  E  switch 

IF  (.NOT. SET)  GO  TO  10  ;if  not  present,  collect  paraaeters 

This  section  of  code  collects  the  filter  paraaeters  from  a  disK 
file. 

CALL  STATUS (PF I LE ,BIXS , LASTS YT) 
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BYTSMBLKS»512)*LASTBYT 
CALL  RD8YTS(PFILE,BYTS,PARA,fi8) 

EXIST s YES 
CO  TO  70 

This  section  of  code  collects  the  filter  parameters  interactively 
froi  the  user* 

10  EXIST'-NO 
CALL  NEWSCR 

ACCEPT  "  ( CR ) 

•Enter  the  filter  length, <CR> 

»  (3*254):  "  ,PARA( 1 ) 

IF  (PAKA( 1) .GE.3.  .AND.  PARA(l) .LE.254. )  GO  TO  20 
WRITE  (10,1) 

1  FORMAT  ("(CRXCRXCR) 

•Please  make  selections  only  froa  the  given  options.”) 

GO  TO  10 

20  ACCEPT  “(CR) 

•Enter  the  type  of  filter, < CR > 

>  1;  multiple  passband/stopband  f i I  ter < CR > 

•  2:  dif f erentiator(CR) 

*  3?  Hilbert  Transform  filter(CR) 

•selection:", PARA ( 2 ) 

IF  (PARA(2) . C E . 1 •  .AND.  PARA(2) .LE.3. )  GO  TO  30 
URITE(10,1) 

CO  TO  20 

30  ACCEPT  ”(CR> 

•Enter  the  number  of  bands, (CR) 

«  (1*10) :",PARA(3) 

IF  (PARA(3) . C E •  1 .  .AND.  PARA(3) .LE.10.)  GO  TO  40 
WRITE  (10,1) 

GO  TO  30 

40  ACCEPT  "(CR) 

•Enter  the  grid  density, (CR) 

«  (1*14) :“,PARA(4) 

IF  (PARA(4),GE.l.  .AND.  PARA(4)  .LE.14.)  GO  TO  50 
WRITE! 10,1) 

GO  TO  40 

50  TYPE  "(CRXCRXCRXCRX  CRXCRXCR) 

•The  following  must  be  specified  for  each  band,(CR> 

«(CR) 

•  lomer  cutoff  freq(CR) 

*  upper  cutoff  freq" 

IF  ( PAKA (2).EQ.l  .OR.  PARA(2) . EQ. 3)  TYPE  " 

»  freq  response" 

IF  (PARA(2) .EQ.2)  TYPE  " 


i 
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TYPE  “ 

*  neiqht  function" 

TYPE  “(CR> 

•nhere,(CR> 

*<CR> 

*  the  loner  and  upper  cutoff  frequency  specif ied<CR> 

*  nust  be  in  the  interval  1  - . 5 < CR > 

*  (this  iaplies  a  saaplinq  frequency  of  1)<CR>" 

IF  < PARA ( 2 ) • EQ • 1  .OR,  PARA<2) .EQ.3)  TYPE  “ 

*  the  frequency  response  uust  be  zero  or<CR> 

*  a  positive  value" 

IF  C PARA < 2 ) ,EQ • 1  .OR.  PARA(2).EQ.3>  TYPE  "(CR> 

»  the  neiqht  function  aust  be  a<CR> 

»  positive  value" 

IF  ( PARA ( 2 ) *  EQ . 2 )  TYPE  “ 

*  the  slope  and  neiqht  function  aust(CR) 

*  be  a  positive  value" 

TYPE  "<CR> 

•Press  carriaqe  return  to  beqin” 

ACCEPT 

1*0 

JM 

60  J*J  +  1 
1*1*1 

HRITE(10,6)  1 

6  FORMAT  ("(CR)Band  nuaber  “,I2) 

ACCEPT  " 

•loner  cutoff  freq  :  ”,PARA(J) 

J  =  J  +  1 
ACCEPT  ” 

•upper  cutoff  freq  :  ",PARA(J) 

J=J+1 

IF  (PARA(2).EQ.l  .OR.  PARA(2) .EQ.3)  ACCEPT  " 

•freq  response:  “,PARA(J) 

IF  (PARA(2).EQ.2)  ACCEPT  " 

•slope:  " jPARA( J ) 

J*J*1 
ACCEPT  " 

•neiqht  function:  ",PARAiil> 

IF  (FLOAT(l)  .LT.PARA<3))  CO  TO  60 
C 

C  Display  the  paraneters  and  have  the  user  decide  if  they  nil  I  be  Kept, 
C 

70  CALL  SHOPAR(PARA,PFILE,FFILE, RET, KEEP) 

IF  (KEEP. EQ. HO)  GO  TO  10 

IF  (KEEP. EQ, YES  .AND,  EXIST. EQ. NO)  CO  TO  75 
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IF  <XEEP.EQ.YES  .AND.  EXIST. EQ. YES)  CO  TO  90 
CALL  ERRORC'inval  id  value  returned  for  KEEP1*) 

This  section  of  code  writes  the  filter  parameters  to  file,  if  the 
parameter  file  does  not  already  exist. 

75  CALL  DFILU(PF1LE,1ER) 

CALL  CF1LU<PFUE,2,1ER) 

IF  (IEK.NE.l)  TYPE  "CFILW  error  ",IER 

CALL  OPEN < 1 ;PF1LE;3;1ER) 

IF  (IER.NE.l)  TYPE  "OPEN  error  ",IER 

BYTS=14+<PARA(3)»16) 

CALL  URSEQ(1,PARA,BYTS,IER> 

IF  (IER.NE.l)  TYPE  “URSEQ  error  ",1ER 

CLOSE  1 

90  RETURN 
END 


CmiHHtiHHHHIHHiHfHIHtHiHHIlHimHHHHHIHHHHHHHIH 


WWW  WWWWW  WW  WWW  W  WW  WW  WWW  wwww 


C»»» »»»»»»*»»*»*»»« t *»»«»»« 


Title:  ShoPar 
Author:  Lt  A1 ten 
Hate:  Dec  62 

Function: 

This  routine  is  used  by  program  LPFIR  to  display  filter  design 
parameters.  It  also  requests  from  the  user  whether  the  parameters 
eill  be  Kept  or  changed  and  returns  the  decision  to  the  calling 
prograa. 

Compile  command: 

FORTRAN  SHOPAR 

Comments: 

The  variables  that  are  passed  to  this  routine  have  the  following 


meaning, 

PARA 

a  44-element  array  that  contains  the  design  parameters 

PFILE 

the  name  of  the  parameter  file  (in  S  format)  that 
contains  array  PARA 

FFILE 

the  name  of  the  filter  impulse  response  file  (in  S 
format)  if  this  file  was  requested  by  the  user 

RET 

this  integer  variable  is  sent  to  the  routine  set  to 

1  (if  FFILE  was  not  requested)  or  2  (if  FFILE  was 
requested) 

KEEP 

this  integer  variable  is  returned  by  the  routine 
set  to  1  (if  the  user  decided  to  Keep  the  design 
parameters)  or  2  (if  the  user  wants  to  change  the 
design  parameters) 

**«*§**«#*»*»****»«*«#**«##«»* **#*»«»! »***»«** »*****««*»* «*f «»«*«««*«*« 

SUBROUTINE  SHOPAR (PARA, PFILE, FFILE, RET, KEEP) 

INTEGER  PFILE ( 7 ) ,FFILE(7) , RET, KEEP, YES, NO 
REAL  PARA  <  44  > 


N0S0 
YES3 1 

HFILT  =  INT{ PARA ( 1 ) ) 

NBANDS3 INT (PARA ( 3 ) ) 

LCRIS  =  INT (PARAt-4) ) 

10  TYPE 

IF  < PARA ( 2 ) • EG • 1  *  >  TYPE  " 

*  -->  Multiple  Passband/Stopband  Filter 

IF  ( PARA ( 2 ) .E0.2. )  TYPE  " 
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IF  (PARA12) .EQ.3# )  TYPE 
*  -->  Hilbert  Transform  Filter  <-•“ 

TYPE 

IF  (RET.EQ.2)  WRITE! 10,3)  PFILE(l) /FFILE(l) 

3  FORMAT!" 

•Paraaeter  File:  "/S13/“  Filter  File:  ",813) 

IF  !RET.EQ.l)  URITEdO /4)  PFILEd) 

4  FORMAT!" 

•Paraaeter  File:  ",813,“  Filter  File:  not  specified") 

WRITE! 10/2)  NFILT/NBAHDS/LCRID 
2  FORMAT (“ 

•Filter  Length:  "/I3/“  Nuaber  of  Bands:  ” , 1 2 , “  Grid  Density:  ",I2) 

* 

IF  !PARA!2).EQ.l  .OR.  PARA(2) .ED .3)  TYPE  "!CR> 


Lower 

Upper 

Frequency 

Weight ! CR> 

Cutoff 

Cutoff 

Resonse 

Function" 

IF  !PARA!2).EQ.2)  TYPE  " 

Lower 

Upper 

Slope 

Ueight!CR) 

Cutoff 

Cutoff 

Function" 

TYPE 

1  =  1 

J=5 

WRITE! 10/6)  1 ,PARA( J)  /PARA! J+l ) 

/PARA! J+2) 

/PARA ( J+3 ) 

6  FORMAT!" 

•Baud  Huaber  ",I2,M  "/F5.4/"  ",F5.4,"  ",F3.0/ 

«"  ”/F3tO) 

1  =  1  +  1 
JsJ+4 

IF  !FL0AT(I).LE.PARA(3))  GO  TO  60 

DO  68  K=l/ll 
TYPE 

65  CONTINUE 

BO  ACCEPT  " 

•Do  you  aant  tO/!CR> 

•  1:  accept  the  above  paraaeters!CR) 

•  2:  c^'nge  the  above  paraaetersfCR) 

•selection:  “/IKE 

IEEP=2 

IF  (IKE.EQ.l)  KEEP=YES 
IF  (IKE.EQ.2)  KEEP  =  NO 
IF  !KEEP.NE,2)  GO  TO  90 
URITEdO, 1) 

1  FORMAT! "!CR>!CR)!CR> 

•Please  select  only  froa  the  options  given. !CR)!CR>") 

TYPE  " 

•Press  carriage  return  to  continue" 
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Title:  Design 

Authors:  Janes  H.  HcClellan 
Thoaas  U <  Parks 
Lawrence  R.  Rabiner 
Date:  Dec  73 

Revised  by:  Lt  A) len 
Revision  date:  Dec  82 

Function: 

This  routine  iapleaents  the  Parks-flcClel Ian  algoritha  to  design 
a  variety  of  linear  phase  FIR  filters.  For  a  discussion  of  this 
algoritha,  refer  to  section  5.1  of  the  folloMing  publication. 

Prograas  for  Digital  Signal  Processing 
New  York,  IEEE  Press,  1979 

IEEE  Book  Huabers:  Clothbound:  0-87942*127-4 
Paperbound:  0-87942-128-2 

The  above  publication  contains  the  source  code  for  the  algoritha 
that  uas  revised  and  used  in  this  subroutine.  It  also  contains 
the  source  code  for  the  subroutines  listed  in  the  load  line.  The 
revisions  allow  the  progran  to  be  used  as  a  subroutine  with  the 
filter  design  paraaeters  read  froa  disk  file  and  the  filter 
iapulse  response  written  to  disk  file. 

This  routine  was  designed  for  use  with  prograa  LPFIR.  Prograa  LPFIR 
should  be  consulted  for  a  description  of  the  type  of  filters  that 
this  routine  can  be  used  tD  design.  Subroutine  CHOICE  creates  the 
paraaeter  file  that  is  intended  for  -use  with  this  routine. 

Coapile  coaaand: 

FORTRAN  DESIGN 

Load  coaaand: 

RLDR/P  wain  prograa  DESIGN  ERROR  EFF  REHE2  D  GEE  OUCH  DATE  etc 
Coaaents: 

The  variables  that  are  passed  to  this  routine  have  the  following 
aeaning, 

PFILE  the  paraaeter  filenaae 

FFILE/FF  the  filter  filenaae  and  corresponding  switch  array 

both  filenaaes  should  be  in  S  foraat  and  the  switch  array  is  of 
the  type  returned  by  the  CONARG  subroutine 

CiHmiimHHHHimmHimmtmHMmHOHHmHmoHimmm 


SUBROP  1.NE  DESH-V  PFILE, FFILE ,FF) 


C<<<<<<<<<<<X<<<<<<<<<<<<<<<<<<<<<<X<<<<<<<X<<M<<M<<<<<<<<<MX<<<M<<<<<XM 

c 

C  This  section  of  code  is  identical  to  the  referenced  program 
C 

COMMON  PI2, AD, DEV, X,Y, GRID, DES,UT, ALPHA, IEXT,NFCNS,NGRID 
COMMON  /OOPS/NITER ^ 1  OUT 

DIMENSION  IEXT(130),AD(130)  /  ALPHA (130) ,X( 130)  ,Y( 130) 

DIMENSION  H ( 1 30 ) 

DIMENSION  DES(2080) ,GRID12080)  ,WT(2Q80> 

DIMENSION  EDGE(20),FX(10),UTX(10),DEVIAT(10) 

DOUBLE  PRECISION  PI2,PI 

DOUBLE  PRECISION  AD,DEV,X,Y 

DOUBLE  PRECISION  GEE,D 

INTEGER  BD1 >BD2 > BD3 ,BD4 

DATA  BD1,BD2,BD3,BD4/1HB,1HA,IHN,1HD/ 

1QUT=10  {this  is  the  1/0  unit  number  for  the  console 
PI=4«0«DATAN( 1 .ODO) 

PI2=2.0D00*PX 


C<<<<<<<<<<<<<<<<<<X<<<<<<<<<<X<<<<<<<<<<X<<<<<<<<<<<<<XX<<<<<<<<<<<<<<<<<<<< 

C 

C  This  section  of  code  is  a  revision  to  the  referenced  program 
C 

C  Revision  code  parameters 

C 

REAL  PARA (44) , IMPULSE (128) 

INTEGER  PF1LE(7),FF1LE(7),FF(2),BYTS,BLKS,LASTBYT 
LOGICAL  ITEST /SET 
C 

C  Get  filter  paraaeters  from  file. 

C 

CALL  STATUS(PF1LE,BLKS,LASTBYT) 

BYTS*(BLKS»512)+LASTBYT 

CALL  RDBYTS(PFILE,BYTS,PARA,44> 

C 

C  Align  parameters  with  variables  in  the  ParKs-HcCle) Ian  algorithm. 

C 

NF I LT  =  PARA ( 1 ) 

JTYPE*PARA(2) 

NBANDS*PARA(3) 

LGRID=PARA(4) 

L*0 

1*0 

J=4 

60  I*1<1 

J  =  J  + 1 
L  =  L+1 

EDGE(L)*PARA( J) 

J  =  J  +  l 
L*L+1 

EDGE(L)*PARA(J) 

J*Jxl 
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FX(I)=PARA( J) 

J  =  J+1 

WTX(I)SPARA( J) 

IF  ( I • LT • INT ( PARA ( 3 ) ) )  CO  TO  60 

C*XXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXX»«XX« 

This  section  of  code  is  identical  to  the  referenced  progran. 

HEC  =  1 

IF  (JTYPE.EQ.l)  N£C=0 
N0DD  =  HFI LT/2 
N0DD=NFILT-2*NQDD 
NFCNS=NF ILT/2 

IF(NQDD.EQ.l. AND.NEG.EQ.O)  NFCNS = NFCNS+ 1 

SET  UP  THE  DENSE  GRID.  THE  NUMBER  OF  POINTS  IN  THE  CRID 
IS  (FILTER  LENGTH  ♦  1)*GR1D  DENSITY/2 

GRID ( 1 ) - EDGE ( 1 ) 

DELF:LGRID*NFCNS 
DELF=0.5/DELF 
IF  (HEG.EQ.O)  GO  TO  135 
IF ( EDGE ( 1 ) .LT.DELF)  CRIDC 1 ) -DELF 
135  CONTINUE 
J*1 
LS1 

LBAND:1 

140  FUP=EDCE(L+1) 

145  TEHP=CRID(J) 


C  CALCULATE  THE  DESIRED  MAGNITUDE  RESPONSE  AND  THE  WEIGHT 
C  FUNCTION  ON  THE  GRID 
C 

DES(J)*EFF(TEMP,FX,WTX,LBAND,JTYPE> 

WT(J)=WATE(TENP,FX,UTX,LBAND,JTYPE) 

J  =  J+l 

GRID ( J ) =TEMP+DELF 
IF(GRID(J) .GT.FUP)  GO  TO  150 
GO  TO  145 
150  GRID(J-1)= 

DES(J-1)=EFF(FUP,FX,UTX,IBANB,JTYPE> 

«T(J-1)=WATE(FUP,FX,WTX,LBAND,JTYPE> 

LBAND  =  LBAND+ 1 
L  =  L + 2 

IF(LBAND.GT.NBANDS)  GO  TO  160 
GR1D(J):EDGE(L) 

GO  TO  140 
160  NGRIDsJ-l 

IF(NEG.NE.NODD)  GO  TO  165 
IF(GRID(NGRID).GT.(0.5-DELF)>  NCR I D = NG R I D - 1 
165  CONTINUE 
C 

C  SET  UP  A  NEW  APPROXIMATION  PROBLEM  WHICH  IS  EUUIVALENT 


92 


ooo  oooo  ooorj 


C  TO  THE  ORIGINAL  PROBLEM 
C 

IF(NEG)  170,170,100 
170  lF(NODD.EQ.l)  GO  TO  200 
DO  175  JS1 , NGR I D 
CHANGE=DCOS(PI*GRID< J) ) 

DES( J) *DES(J) /CHANGE 
175  WT(J)SHT(J)*CHANGE 
GO  TO  200 

160  IF(NODD.EQ.l)  GO  TO  190 
DO  185  J!1 , NGR I D 
CHAHGrsDSlN(Pl*GRID( J) ) 

DES(J)=DES(J)/CHANGE 
185  HT(J)=WT(J)#CHANGE 
GO  TO  200 

190  DO  195  J  =  1  ,NCR1 D 

CHANGE=DSIN(PI2*GRID(J ) ) 

DE8(J)=DES(J) /CHANGE 
195  MT(J)*WT(J)*CHANGE 

INITIAL  GUESS  FOR  THE  EXTREHAL  FREQUENCIES --EQUALLY 
SPACED  ALONG  THE  GRID 

200  TEMPSFL0AT(NGRID-1 ) /FLOAT (NFCNS) 

DO  210  J»l, NFCNS 
XT=J-1 

210  IEXT< J)=XT*TEMP+1 .0 
IEXT ( NFCNS* 1)SNGRID 
NH1=NFCNS-1 
NZ*NFCNS*1 

CALL  THE  REHEZ  EXCHANGE  ALGORITHM  TO  DO  THE  APPROXIMATION 
PROBLEM 

CALL  REHEZ 

CALCULATE  THE  IMPULSE  RESPONSE. 

IF(NEG)  300,300,320 
300  IF(NODD.EQ.O)  GO  TO  310 
DO  305  *1*1, NH1 
NZHJ=NZ-J 

305  H(J)*0.5»ALPHA(NZMJ) 

H (NFCNS )= ALPHA ( 1 ) 

GO  TO  350 

310  H(l) *0.25* ALPHA (NFCNS) 

DO  315  JS2,NH1 
NZMJ*NZ-J 
NF2J=NFCNS*2-J 

315  H<  J )  =  0. 25*<  ALPHACNZIIJ )+ ALPHA < NF2J ) ) 

H( NFCNS ) *0.5«ALPHA( 1) +0.25* ALPHA< 2) 

GO  TO  350 

320  IF(NSDD.EQ.O)  GO  TO  330 
H(1)*0.25*ALPHA< NFCNS) 


193 


oors  oooor> 


H ( 2 ) =0 « 25* ALPHA ( NH 1 ) 

DO  325  J:3,NI11 

NZKJ=NZ*J 

NF3JsNFCNS+3-J 

325  H(J) s0.25»( ALPHA (NZHJ)- ALPHA (NF3J) ) 
H(NFCNS)s0.5*ALPHA(l ) -0.25*ALPHA(3) 
H(NZ) =0.0 
GO  TO  350 

330  H(  1 ) s 0.25 » ALPHA (NFCNS) 

DO  335  J=2,NM1 

NZH<JSNZ-J 

NF2JsNFCNS+2-J 

335  H(J)*0.25»( ALPHA (NZHJ) -ALPHA (NF2J) ) 
H(NFCNS)s0.5»ALPHA< 1 )-0.25*ALPHA(2) 
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This  section  of  code  is  a  revision  to  the  referenced  program* 


Calculate  the  conplete  inpulse  response* 

350  CONTINUE 

DO  351  J  =  l, NFCNS 
K=NFILT+1-J 

IF  (NEG.EQ.O)  IHPULSE(J)sH(J) 

IF  (NEG.EQ.O)  IHPULSE(K)=H( J) 

IF  (NEG.EQ.l)  INPULSE(J)=HU) 

IF  (NEG.EQ.l)  IHPULSE(K)=-H<J) 

351  CONTINUE 

IF  (NEG.EQ.l  .AND.  N0DD.EQ.1)  IMPULSE ( NZ ) =0 . 0 
Mrite  filter  inpulse  response  to  file. 

352  CALL  DFILU(FFILE,IER) 

IF  (IER.EQ.13)  GO  TO  353 

IF  (IER.NE.l)  TYPE  "DFILW  error  ",IER,"  nith  filter  file" 

353  CALL  CFILU(FFILE,2,IER> 

IF  (IER.NE.l)  TYPE  "CFILU  error  ",IER,"  nith  filter  file" 
CALL  0PEN(2,FFILE,3,IER) 

IF  (IER.NE.l)  TYPE  "OPEN  error  ”,IER,"  nith  filter  file" 
BYTS^NFILTM 

CALL  MRSEQI 2/ IMPULSE jBYTS ,IER) 

IF  (IER.NE.l)  TYPE  "WRSEQ  error  ",IER,"  nith  filter  file" 
CALL  CLOSE ( 2 ^ IER ) 

IF  (IER.NE.l)  TYPE  "CLOSE  error  ",IER,"  nith  filter  file" 

SET = 1TEST ( FF <  1)  ,4)  {true  if  L  snitch  is  present 

IF  (.NOT. SET)  GO  TO  500  {if  L  snitch  is  not  present 

{then  do  not  send  a  filter  design 
{listing  to  the  printer 
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This  section  of  code  is  identical  to  the  referenced  progra* 
PROGRAM  OUTPUT  SECTION. 

UR  I TE ( I  OUT ,360) 

360  FORHATdHl ,  7  0  ( 1 H* )  /  / 1 5X ,  29HF I N I  TE  IMPULSE  RESPONSE  (FIR)/ 
113X /34HLINEAR  PHASE  DIGITAL  FILTER  DESIGN/ 

217X  ,24HREMEZ  EXCHANGE  ALGORITHM/) 

IF(JTYPE.EQ.l)  URITEdOUT, 365) 

365  FORMAT (22X,15HBANDP ASS  FILTER/) 

IF( JTTPE.EQ.2)  WR1 TE 1 1  OUT , 37 0 ) 

370  FORMAT (22X,14HD1FFERENT I ATOR/) 

IF( JTYPE.E0.3)  URITEdOUT, 375) 

375  FORMAT (20X/19HH I LBERT  TRANSFORMER/) 

URITEdOUT / 3 7 8 )  NFILT 
378  FORMAT (20X ,  16HFILTER  LENGTH  *  ,13/) 

URITEIIOUT ,380) 

380  FORMAT d5X,28H***»*  IMPULSE  RESPONSE  «»*««) 

DO  381  Jd,NFCNS 

K=NFILT+1-J 

IF(NEC.EQ.O)  WRITE (10UT ,382)  J,H(J),K 
IF(NEG.EQ.l)  URITEdOUT ,333)  J,H(J),k 

381  CONTINUE 

382  FORMAT (13X,2HH( ,  12 ,4H )  =  ,E15.8,5H  *  H(,I3,1H)) 

383  FORMAT! 13X,2HH(  ,12 , 4  H )  =  ,E15.8,6H  =  -H(,I3,1H>> 

I F ( NEC . EQ .  1  •  AND . NODD . EQ .  1  >  URITEdOUT, 384)  NZ 

384  F0RHAT(13X,2HH( , 12,8H)  *  0.0) 

DO  450  Xd,NBANDS,4 

KUP=K+3 

IF (KUP.GT .NBANDS )  KUP=NBANDS 

URITEdOUT ,385)  (BD1  ,BD2,BD3,BD4,J ,J=K,KUP> 

385  FORMAT (/24X,4(4A1,13,7X)) 

URITEdOUT, 390)  <EDGE<2»J-1 ) ,  J  =  K  ,KUP> 

390  FORMAT ( 2X , 15HL0UER  BAND  EDGE,5F14.7> 

URITEdOUT, 395)  <EDGE(2*J)  ,J  =  K,KUP> 

395  FORMAT (2X,15HUPPER  BAND  EDGE,5F14.7> 

IFIJTYPE.NE.2)  URITEdOUT, 400)  (FX(  J)  ,J  =  K,KUP) 

400  FORMAT (2X , 13HDESIRED  V ALUE , 2X , 5 F 1 4 . 7 ) 

IFIJTYPE.EQ.2)  URITEdOUT ,405)  (FX(J)  ,J  =  K,KUP) 

405  FORMAT (2X , 13H DESIRED  SLOPE , 2X , 5F1 4 . 7 ) 

URITEdOUT, 410)  (UTX(J)  ,J  =  K,KUP) 

410  FORMAT (2X ,9HUEIGHTING ,6X,5F14, 7) 

DO  420  JSK,KUP 
420  DEVIAT(J)=DEV/UTX(J) 

URITEdOUT,  425)  <  DEVI  AT  U)  ,J  =  K,KUP) 

425  FORMAT < 2X ,9HDEVI ATION ,6X ,5F14 . 7) 

1F( JTYPE.NE . 1 )  GO  TO  450 
DO  430  J  =  K  ,KUP 

430  DEVI  AT ( J ) =20 .0*ALQU10 ( DEVI  AT ( J ) +FX( J ) ) 

URITEdOUT, 435)  (DEVIAT(J)  ,J  =  K,KUP) 

435  FORMAT (2X ,15HDEVIATI0N  IN  DB,5F14.7) 

450  CONTINUE 

DO  452  J*1,NZ 


IX- 1EXT ( J  > 

452  CR1D( J)SGR1D(1X) 

URIT£( IOUT ;455)  ( Gft I D < J ) , J  =  1 , NZ ) 

455  FORHAT(/2X,47HEXTREI1AL  FREQUENCIES- -KAXINA  OF  THE  ERROR  CURVE/ 
l  12X/5F12.7) ) 

URITEdOUT  >460 ) 

460  FORMAT (/IX ;70(1H#)/1H1) 


500  RETURN 
END 
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c 

C . 

C  SUBROUTINE:  REMEZ 

C  THIS  SUBROUTINE  IMPLEMENTS  THE  REMEZ  EXCHANGE  ALGORITHM 
C  FOR  THE  WEIGHTED  CHE6YSHEV  APPROXIMATION  OF  A  CONTINUOUS 
C  FUNCTION  WITH  A  SUM  OF  COSINES.  INPUTS  TO  THE  SUBROUTINE 
C  ARE  A  DENSE  GRID  WHICH  REPLACES  THE  FREQUENCY  AXIS,  THE 
C  DESIRED  FUNCTION  UN  THIS  GRID,  THE  WEIGHT  FUNCTION  ON  THE 
C  GRID,  THE  NUMBER  OF  COSINES,  AND  AN  INITIAL  GUESS  OF  THE 
C  EXTREMAL  FREQUENCIES.  THE  PROGRAM  MINIMIZES  THE  CHEBYSHEV 
C  ERROR  BY  DETERMINING  THE  BEST  LOCATION  OF  THE  EXTREMAL 
C  FREQUENCIES  (POINTS  OF  MAXIMUM  ERROR)  AND  THEN  CALCULATES 
C  THE  COEFFICIENTS  OF  THE  BEST  APPROXIMATION. 

C . - . 

c 

SUBROUTINE  REMEZ 

COMMON  PI2, AD, DEV, X,Y, GRID, DES,WT, ALPHA, IEXT,NFCNS,NCRID 
COMMON  /OOPS/NITER, IOUT 

DIMENSION  IEXT(130),AD(130) ,ALPHA( 130), X(1 30), Y(1 30) 
DIMENSION  DES ( 2080), GRID < 2080), WT( 2080) 

DIMENSION  A(A6),P(65),G(65) 

DOUBLE  PRECISION  P12,DNUM,DDEN,DTEHP,A,P,U 
DOUBLE  PRECISION  DX,DAX 
DOUBLE  PRECISION  AD,DEV,X,Y 
DOUBLE  PRECISION  GEE,D 

THE  PROGRAM  ALLOWS  A  MAXIMUM  NUMBER  OF  ITERATIONS  OF  25 

ITRMAX=25 
DEVl*-l.C 
NZsNFCNS+l 
NZZ=NFCNS+2 
NITERS 
100  CONTINUE 

IEXT(NZZ) =NGRID+1 
NlTER'-NITER+l 

IF(NITER.GT.ITRMAX)  GO  TO  400 
DO  110  J;1,NZ 
JXTSIEXT( J) 

DTEMP=GRID( JXT) 

DTEMP*DC0S(DTEMP»PI2) 

110  X(J)=DTENP 

JET= (NFCNS-1 )/15+l 
DO  120  Jn,NZ 
120  AD( J) =D( J ,NZ , JET ) 

DNUM-0.0 
DDEN=0.0 

in 

DO  130  J*1,NZ 
Ls I EXT ( J ) 

DTEMP=AD( J)»DES(L) 

DNUH=DNUMiDTEMP 
DTEMP-FLOAT(X)*AC(J)/WT(L) 

DDEN=DDEN+DTEMP 
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n  n  n  n 


130  K*-K 
DEV=DNUM/DDEN 
URITEdOUT ,131)  DEV 

131  FORMAT < IX /12HDEVIATI0N  =  ,F12.9> 
NU=1 

IF<DEV.CT.O.O)  MU=-1 
DEV=-FLOAT(NU)*DEV 
X  =  NU 

DO  HO  J'1/NZ 
L- 1  EXT  <  J ) 

DTEF1P=FL0AT(K)  «DEV/UT  ( L ) 

Y( J)sDES<L)+DTEMP 
HO  K  =  -K 

IF(DEV.CT.DEVL)  GO  TO  150 
CALL  OUCH 
GO  TO  400 
150  DEVL=DEV 
JCHNGE=0 
KHIEXT(l) 

KNZ-IEXT(NZ) 

KL0W:0 

NUT*-NU 

J*1 


SEARCH  FOR  THE  EXTREMAL  FREQUENCIES  OF  THE  BEST 
APPROXIMATION 

200  IF(J.EQ.NZZ)  YNZ*COMP 
IF(J.GE.NZZ)  GO  TO  300 
KUP=IEXT(J+1) 

LSIEXT(J)+1 

NUTS-NUT 

IF( J.EQ.2)  Yl-COMP 
COMP=DEV 

IFU.GE.KUP)  GO  TO  220 
ERR=GEE(L,NZ) 

ERR=(ERR-DES(L))»WT(L) 

DTEMP  =  FLO  AT  (NUT  HERR -COMP 
IF(DTEMP.LE.O.O)  GO  TO  220 
COMP  =  FLOAT  (NUT  HERR 
210  L*L*1 

IFU.GE.KUP)  GO  TO  215 
ERR=GEE(L,NZ) 

ERR= < ERR-DES (L) )«WT<L) 

DTEMP*  FLO  AT  (NUT  HERR -COMP 
IF(DTEHP.LE.O.O)  GO  TO  215 
COHP*FLOAT< NUT  HERR 
GO  TO  210 
215  I EXT ( J ) =  L - 1 
J*J*1 
KLOWU-l 
JCHNGE1 JCHNGE+1 
GO  TO  200 


225  L=L - 1 

IF(L.LE.KLOU)  GO  TO  250 
ERR*GEE(L,NZ) 
ERR:(ERR-DES(L))*UT(l) 
DTEMP=FLOAT  <NUT)*ERR-COHP 
IF(DTEHP.GT.O.O)  GO  TO  230 
IF(JCHNGE.LE.O)  GO  TO  225 
GO  TO  260 

230  COUP* FLOAT ( NUT )*ERR 
235  L  =  L- 1 

IF(L.LE.KLOW)  GO  TO  240 
ERR  =  GEE ( L  ,HZ ) 

ERR= (ERR-DES(L) )*WT(L) 

DTEHP  =  FLOAT (HUT )  *ERR-COMP 
IF(DTENP.LE.O.O)  GO  TO  240 
CONPsFLOAT(NUT)*ERR 
GO  TO  235 
240  KLOU-IEXT( J) 

IEXT ( J )  =  L+l 
J  =  J*1 

JCHNGE= JCHNGE+1 
GO  TO  200 
250  L:1EXT(J)+1 

IF( JCHNGE.GT .0)  GO  TO  215 
255  L  =  L+1 

IF(L.GE.KUP)  GO  TO  260 

ERR=CEE(L,NZ) 

ERR=(ERR-DES(L))*MT(L) 

DTEHP= FLOAT ( NUT )*ERR-COHP 
IF(DTEHP.LE.O.O)  GO  TO  255 
COHP=FLOAT(NUT)*ERR 
CO  TO  210 
260  KLOU= IEXT ( J ) 

J  =  J+1 
GO  TO  200 

300  IF(J.GT.NZZ)  GO  TO  320 

IF ( K 1 • GT • IEXT ( 1) )  K 1  =  I  EXT ( 1 ) 

IF( KNZ .LT i 1EXT(NZ) )  KNZ" iEXT(NZ) 

NUT1SNUT 

NUTS*NU 

L*0 

KUP  =  K 1 

COHP=YNZ*< 1 .00001 ) 

LUCK  =  1 
310  L s L-*- 1 

IF(L.GE.KUP)  GO  TO  315 

ERR:GEE(L,NZ) 

ERRMERR-DES(L))»WT(L) 

DTENPsFLOAT(NUT)»ERR-CONP 

1F(0TEHP.LE .0.0)  GO  TO  310 

CONPs FLOAT (NUT)* ERR 

JSNZZ 
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GO  TO  325 

320  IFILUCK.CT.9)  GO  TO  350 
IFICOHP.GT.Yl)  Y1=CQHP 
K 1 s I  EXT ( NZZ ) 

325  L:NGRID*1 
XLOU:KNZ 
NUT=-NUT1 
C0NP-Y1X1. 00001) 

330  LsL*l 

IF(L.LE.KLQU)  GU  TO  340 
ERR:C£E(L,NZ> 

ERRXERR-DES(L))*«T(L) 

DTEHP sFLOAT < NUT )*ERR- COUP 
IF(DTERP.LE.O.O)  GO  TO  330 
J=NZZ 

COHP= FLOAT ( NUT )«ERR 
LUCX-LUCX+10 
GO  TO  235 

340  IFILUCX.EQ.6)  CO  TO  3/0 
DO  345  J-l ,NFCNS 
NZZHJ=NZZ-J 
NZHJ=NZ-J 

345  IEXT (NZZHJ)  =  lEXT(NZt1J) 

IEXT  C 1 ) s  K 1 
GO  TO  100 
350  KN:IEXT(NZZ) 

DO  360  J  =  1  /NFCNS 
360  IEXT IEXT (J+l) 

1EXTCNZ) -KN 
GO  TO  100 

370  IF(JCHNGE.GT.O)  CO  TO  100 

CALCULATION  OF  THE  COEFFICIENTS  OF  THE  BEST  APPROXIHATION 
USING  THE  INVERSE  DISCRETE  FOURIER  TRANSFORM 

400  CONTINUE 
NHlsNFCNS-l 
FSH*1.0E-06 
CTEMP  =  GRID ( 1 ) 

X ( NZZ  >  =  -2.0 
CN*2»NFCNS-1 
DELF=1«0/CN 
L  =  1 
KKK«0 

IF(GRID( 1).LT. 0.01, AND. GRID(NGRID) ,GT. 0,49)  KKX=i 
1 F ( NFCNS . LE » 3 )  KKK  =  1 
IF(XXX.EQ.l)  GO  TO  405 
DTEHP:DC0S(PI2»GR1D( 1 ) ) 

DNUN:DC0S(PI2*GRID(NGRID) ) 

AA=2.0/<DTEHP-DNUH> 

BB  =  - <  DTEMP+DNUH)/ (DTEMP-DNUM) 

405  CONTINUE 

DO  430  J-*l, NFCNS 
FT  =  J - 1 


I 


i 


I 


* 

% 


FT=FT<DELF 

XT=DC0S(PI2*FT) 

IFUKK.EQ.l)  GO  TO  410 

XTMXT-BBl/AA 

XT  1  =  SORT ( 1 .0-XT*XT) 

FT=ATAH2(XT1 ,XT>/P12 
410  XE=X(L) 

1F<XT,GT<XE)  GO  TO  420 
IF ( < XE-XT )  •LT.FSH)  GO  TO  415 
L*L+1 
GO  TO  410 
415  A(J)SY(L) 

GO  TO  425 

420  1F< (XT-XE) . LT.FSH)  GO  TO  415 
GRID(1):FT 
A(J):CEE( 1 ,NZ) 

425  CONTINUE 

IF(L.CT.l)  L  =  L - 1 
430  CONTINUE 

GRIDUDCTEHP 

DDENSPI2/CN 

DO  510  J:1  ,NFCNS 

DTEHP=0.0 

DNUH= J- 1 

DNUM=DNUH<DDEN 

IF<NH1<LT<D  GO  TO  505 

DO  500  K*1,NH1 

DAK=A(K+1) 

DK  =  K 

500  DTEHP=DTEHP+DAK<DCOS(DNUH<DK) 

505  DTEHPS2.0*DTEHP+A(1) 

510  ALPHA( J ) =DTEHP 
DO  550  J=2,NFCNS 
550  ALPHA! J)= 2<0<ALPHA< J)/CN 
ALPHA! l)s ALPHA < 1)/CN 
1F<KKK<EQ<D  GO  TO  545 
P< 1 ) s 2 <0<ALPHA<NFCNS ) »B8+ALPHA<NH1) 
P<2) s2<  0<AA<ALPHA<NFCNS ) 

0(1 ) =ALPHA<NFCNS-2> -ALPHAtNFCNS) 

DO  540  J=2,N«1 
IF<J<LT<NHD  GO  TO  515 
AAS0<5»AA 
BB-0.5<BB 
515  CONTINUE 
P(J<1)*0.0 
DO  520  K*1,J 
A(K)=P<K) 

520  P(X):2.0<BB<A(K> 

P<2) *P(2)+A< 1)»2.0<AA 
JH1-J-1 

DO  525  KS1 , JH1 

525  P<KDP<K)*Q(X)+AA<A(K+1> 

JPDJ+i 

DU  530  K:3|JP1 


201 


530  P(X)=P(X)+AA*A(X-1) 

IF( J.EQ.NH1 )  GO  TO  540 
00  535  X*1,J 
535  Q(X)=-A<X) 

HF1 J=NFCNS-1- J 
Q(1)=Q(1) + ALPHA (NF1J ) 
540  CONTINUE 

00  543  J=1,NFCNS 
543  ALPHA<J)-P(J) 

545  CONTINUE 

1F(NFCNS,CT,3>  RETURN 
ALPHA ( NFCNS+ 1 )  -0 . 0 
ALPHA(NFCHS+2) =0.0 
RETURN 
END 
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c 

C . . 

C  FUNCTION:  EFF 

C  FUNCTION  TO  CALCULATE  THE  DESIRED  MAGNITUDE  RESPONSE 
C  AS  A  FUNCTION  OF  FREQUENCY. 

C  AN  ARBITRARY  FUNCTION  OF  FREQUENCY  CAN  BE 

C  APPROXIMATED  IF  THE  USER  REPLACES  THIS  FUNCTION 

C  WITH  THE  APPROPRIATE  CODE  TO  EVALUATE  THE  IDEAL 
C  MAGNITUDE.  NOTE  THAT  THE  PARAMETER  FREQ  IS  THE 
C  VALUE  OF  NORMALIZED  FREQUENCY  HEEDED  FOR  EVALUATION. 

C . 

C 

FUNCTION  EFF<FREQ,FX,UTX,LBAND,JTYPE> 

DIMENSION  FX<5),WTX(5) 

IF( JTYPE.EQ.2)  GO  TO  1 
EFF=FX ( LBAND ) 

RETURN 

1  EFF=FX(LBAND)»FREQ 
RETURN 
END 
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FUNCTION:  D 

FUNCTION  TO  CALCULATE  THE  LAGRANGE  INTERPOLATION 
COEFFICIENTS  FUR  USE  IN  THE  FUNCTION  GEE. 


DOUBLE  PRECISION  FUNCTION  D(K,N,n> 

COMMON  PI2,AD,DEV,X,Y,URJD,DES,UT,ALPHA,IEXT,NFCNS,NGR1D 
DIMENSION  IEXTC130) ,AD( 130) , ALPHA! 130)  ,X< 130)  ,Y ( 130 ) 
DIMENSION  D ESI 2050) ,GRID(208Q) ,UT(20fl0) 

DOUBLE  PRECISION  AD,DEV,X,Y 
DOUBLE  PRECISION  Q 
DOUBLE  PRECISION  PI2 
D=  1  •  0 
U:X(K) 

DO  3  1*1, n 
DO  2  J=L,N,M 
IF(J-K) 1 ,2,1 

1  D=2.0#D«(Q-X(J)) 

2  CONTINUE 

3  CONTINUE 
D=1 .0/D 
RETURN 
END 
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FUNCTION:  CEE 

FUNCTION  TO  EVALUATE  THE  FREQUENCY  RESPONSE  USING  THE 
LAGRANGE  INTERPOLATION  FORMULA  IN  THE  BARYCENTRIC  FORK 


DOUBLE  PRECISION  FUNCTION  GEE(K,N) 

COMMON  P12, AD, DEV, X,Y, GRID ,DES,UT, ALPHA, IEXT  .HFCNS,NGRID 
DIMENSION  IEXT(130),AD(130) , ALPHA! 130), XI 130) ,Y( 130) 
DIMENSION  DES < 2080 ) , GRID! 2080)  ,117(2080) 

DOUBLE  PRECISION  P,C,D,XF 
DOUBLE  PRECISION  PI2 
DOUBLE  PRECISION  AD,DEV,X,Y 
P=0.0 
XF=GRID(K) 

XF-DC0S(PI2*XF) 

D  =  0.0 

DO  1  J  =  1,N 
C  =  XF-X< J ) 

C=AD(J)/C 

D=D*C 

1  P:P+C*Y(J> 

GEE=P/D 

RETURN 

END 


o  n  n 


c . 

£  SUBROUTINE:  OUCH 

C  WRITES  AN  ERROR  MESSAGE  WHEN  THE  ALGORITHM  FAILS  TO 
C  CONVERGE.  THERE  SEEM  TO  BE  TUO  CONDITIONS  UNDER  WHICH 
C  THE  ALGORITHM  FAILS  TO  CONVERGE:  (1)  THE  INITIAL 

C  GUESS  FOR  THE  EXTREMAL  FREQUENCIES  IS  SO  POOR  THAT 

C  THE  EXCHANGE  ITERATION  CANNOT  GET  STARTED,  Ok 

C  (2)  NEAR  THE  TERMINATION  OF  A  CORRECT  DESIGN, 

C  THE  DEVIATION  DECREASES  DUE  TO  ROUNDING  ERRORS 

C  AND  THE  PROGRAM  STOPS.  IN  THIS  LATTER  CASE  THE 

C  FILTER  DESIGN  IS  PROBABLY  ACCEPTABLE,  BUT  SHOULD 
BE  CHECKED  BY  COMPUTING  A  FREQUENCY  RESPONSE. 


SUBROUTINE  OUCH 
COMMON  /OOPS/NITER, 10UT 
WR1TEIIOUT, UNITER 

l  FORMAT ( 44H  ***«*#*#»#*«  FAILURE  TO  CONVERGE 
141HQPR06A6LE  CAUSE  IS  MACHINE  ROUNDING  ERROR/ 

223H0NUMBER  OF  ITERATIONS  =,14/ 

339H0IF  THE  NUMBER  OF  ITERATIONS  EXCEEDS  3,/ 

462H0THE  DESIGN  MAY  BE  CORRECT,  BUT  SHOULD  BE  VERIFIED  WITH  AN  FFT) 
RETURN 
END 
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Title:  CoaLn 
Author:  Lt  Allen 
Bate:  Dec  62 

Function: 

This  routine  fetches  the  nuwber  of  files,  filenaees  and  switch 
values  of  up  to  3  files  that  say  have  been  entered  in  the 
coaaand  line  with  the  executing  prograa. 

Coapile  coaeand: 

FORTRAN  COHLN 

Coaeand  line: 

CALL  C0«LN(TQTAL,«AIN,FILE1,FILE2,FILE3,HS,F1,F2,F3) 

■here, 

TOTAL  returns  the  nuaber  of  files,  in  addition  to  the  executing 
prograa,  that  «ere  entered  in  the  coaeand  line  of  the  executing 
prograa. 

HAIN/HS  are  the  naae  and  switch  values  entered  for  the  executing 
prograa. 

FILEl/Fi,  FILE2/F2  and  FILE3/F3  are  the  additional  filenames 
and  corresponding  snitches  if  entered  in  the  coaeand  line. 

All  filenanes  are  returned  in  the  S  foraat.  The  following  table 
gives  the  bit  that  is  set  in  the  snitch  array  for  each  switch 
that  is  attached  to  a  filenaae.  If  the  switch  is  not  attached, 
then  the  corresponding  bit  will  be  zero.  Also,  the  unused  bits 
in  the  second  switch  eleaent  will  be  returned  zero.  The  bits 
are  nuabered  froa  0,  the  rightmost,  to  15,  the  leftaost.  This  is 
the  convention  used  by  the  1TEST  subroutine. 


switch 

bit  of  SU(1) 

switch 

bit  of  SU ( 2 ) 

A 

15 

0 

15 

b 

14 

R 

14 

C 

13 

S 

13 

B 

12 

T 

12 

E 

11 

U 

11 

F 

10 

V 

10 

G 

9 

U 

9 

H 

8 

X 

8 

I 

7 

Y 

7 

J 

6 

Z 

6 

X 

5 

L 

4 

H 

3 

N 

2 

0 

1 

c 


p 


0 


SUBROUTINE  C0HLN(TQTAL,HAIN,FILE1,FILE2,FILE3,NS,FI,F2,F3) 

INTEGER  HAIN(7), FILE 1(7) , FILE2(7) ,FILE3(7) 

INTEGER  HS(2),F1(2),F2(2),F3(2), TOTAL 

TOTAL-O 

CALL  GROUND< I ) 

IF  (I.EQ.O)  OPEN  l,“COH.CH“  {operating  on  background  tereinal 

IF  ( 1 • EQ . 1 )  OPEN  l,"FCOH.CIT  {operating  on  foreground  terminal 

CALL  CONARGd, HAIN, NS, IER) 

IF  (IER.NE.1)  TYPE  “COHARG  error", IER,"  nith  tain  file** 

CALL  CONARGd, F1LE1, FI, IER) 

IF  (IER.EQ.9)  GO  TO  10 

IF  (IER.NE.1)  TYPE  “COHARG  error", IER,"  nith  first  file” 
TDTAL:TOTAL*l 


«  CALL  CONARGd  ,FILE2 ,F2, IER) 

IF  ( IER.EQ.9)  GO  TO  10 

IF  (IER.NE.1)  TYPE  “COHARG  error", IER,"  eith  second  file" 
TQTAL  =  TOTALd 


re  o« 


CALL  CONARGd, FILE3,F3, IER) 

IF  (IER.EQ.9)  GO  TO  10 

IF  (IER.NE.1)  TYPE  “COHARG  error", IER,"  eith  third  file" 
TQTAL=TQTALd 


10  CLOSE  1 
RETURN 
END 


« 
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Title:  ClkSet 
Author:  Lt  A) len 
Date:  Dec  82 

Function: 

This  routine  alloes  the  user  to  interactively  set  the  clock  to 
be  used  for  an  Eclipse  A/D/A  conversion  operation. 

Coepile  coeeand: 

FORTRAN  CLKSET 

Coeeents: 

The  device  nueber  (21  for  A/D  or  23  for  D/A)  is  sent  to  the 
routine  in  variable  DEVICE* 

C  The  clock  chosen  is  returned  to  the  calling  prograe  in  variable 

C  CLOCK. 

SUBROUTINE  CLKSET (DEVICE /CLOCK) 

INTEGER  DEVICE, CLOCK 

CHIHimilHHHHlHIIIHIHHHIIIIIHHIIIHHIlHIIIIHIIIIIIIIHHI 

IF  (DEVICE. EQ. 21  .OR.  DEVICE. EQ. 23)  CO  TO  10 
CALL  ERRORC'ieproper  device  nueber**) 

10  TYPE  "<CR> 

•  What  type  of  clock?(CR) 

»  1:  pulse(CR) 

•  2:  external (CR> 

•  3:  internal" 

IF  (DEVICE.E0.21 )  TYPE  "  4:  DCH“  ;not  alloeed  for  A/D  operations 

ACCEPT  “ 

•selection:*', 1CL0CK 
CLOCK  =  7  77  K 

IF  (ICLOCK.EQ. 1)  CLOCK  =  OK 
IF  (ICLOCK.EQ, 2)  CLQCX*00000K 
IF  (ICLOCK.EQ, 3)  CLQCKMOOOOK 

IF  ((DEVICE. EQ. 21)  .AND. ( ICLOCK.EQ .4 > )  CLQCK=2000QK 
IF  (CLOCK. NE.777K)  GO  TO  IS 
WRITE  (10,1) 

1  FORNAT  ("(CRXCRXCR) 

•Please  take  selections  only  froe  the  given  options.'*) 

CO  TO  10 

IS  IF  (CLOCK. EO. OK)  TYPE  “(7X7X7XCR) 

•Use  of  the  pulse  clock  requires  special  softeare  setup(CR) 

•and  should  not  be  atteepted  eithout  consulting  the  SAH(CR) 
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•User's  Manual 
IHIS‘1 


4 


U  IF  (CLOCK. EQ. OX)  ACCEPT  “<CR> 
•Do  you  eant  to,<CR) 

•  It  use  pulse  clocK(CR) 

>  2t  select  another  clocMCR) 
•selections", IMIS 

(F  (IH1S.EQ.1)  CO  TO  20 
IF  (1MIS.E0.2)  CO  TO  10 
URITE(10,1) 

CO  TO  16 


20  RETURN 
END 


uuu  uuuu  u  u  u  u  u 
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Title:  DelChc 
Author:  Lt  Allen 
Date:  Dec  82 

Function: 

This  routine  deletes  a  disk  file  if  it's  snitch  array  has  the  8 
D  snitch  set.  The  seitch  array  should  be  of  the  forn  returned 
by  the  COHARG  cal  I • 

Conpile  coneand: 

FORTRAN  DELCHC 

Connents: 

The  variables  that  are  passed  to  this  routine  have  the  folloning 
■eaning, 


FILENAH 

FS 


the  disk  filenane  (in  S  fornat) 

the  corresponding  snitch  array  for  the 
disk  file 


10 


SUBROUTINE  DELCHC ( FILENAMES) 

INTEGER  FILENAH(7),FS(2> 

LOCICAL  ITEST 

IF  ( .NOT . ITEST (FS( 1 ) ,12) )  GO  TO  10 
CALL  DFILUf FILENAN, 1ER) 

IF  (IER.NE.il  UklTE(lOjl)  IER)F1LENAH(1I 
FORNAT ( “ 

•DFILM  error  ",I2,"  nith  file  " , S 1 3 ) 

RETURN 

END 
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CiiiiiiiiHmmiimiiimiHmiiiaiiiimHiiiiiiiiiiiiiiiiiiiiiiii 

C  Title:  PilChc 

C  Author:  Lt  Allen 

C  Date:  Dec  82 

Function: 

This  routine  verifies  that  teo  filenames  are  not  identical*  If 
they  are,  an  error  aessage  is  printed  to  the  screen  and  the 
prograa  is  aborted* 

Coepile  coanand: 

FORTRAN  FILCHC 

Coaaents: 

The  filenaaes  sent  to  this  routine  should  he  in  the  S  foraat* 
(This  is  the  foraat  returned  by  the  COHARC  call) 


C 


SUBROUTINE  F I LCHC < F I LE 1 >F1LE2) 

INTEGER  FILEK7)  ,FILE2(7)  ,TEST 

TEST*0 

1-1 

10  IF  (FILE1( I ) . NE . F ILE2 (III  GO  TO  20 
1--U1 

IF  (I.LT.8)  GO  TO  10 
GO  TO  30 


20  TEST*1 


30  IF  (TEST.EQ.O) 

•CALL  ERROR! "the  given  coanand  line  filenaaes  cannot  be  identical") 

RETURN 

END 


n  d  o  c->  r?  c->  o 
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Title:  FiltPlot 
Author:  Lt  Allen 
Date:  Dec  82 

Function: 

This  progran  plots  filter  responses  on  the  tetronix  terminal.  It 
•ill  plot  an  iapulse  of  up  to  512  points  or  the  Magnitude  or  log 
Magnitude  of  the  1024-point  DFT  Magnitude  of  the  iMpulse 
C  response.  The  prograt  assumes  that  the  filter  file  is  of 

C  the  type  (tiee  or  frequency  Magnitude)  specified  to  be 

C  plotted.  Only  the  first  half  (512  points)  of  the  DFT  files 

C  are  plotted.  All  file  data  types  should  be  real. 

C  Coepile  conaand: 

C  FORTRAN  FILTPLOT 

C  Load  coneand: 

C  RLDR/P  FILTPLOT  CQflLN  STATUS  GRPH.LB  fiFLlBS 

L'  Conaand  Line: 

C  FILTPLOT  (/I  or  /H  or  /L)  filenaae 

C  where  “filenawe"  can  be  any  legal  RDOS  filenane 

C  Either  the  I ,  fl  or  L  switch  Must  be  attached  and  indicates 

C  an  impulse;  Magnitude  or  log  Magnitude  plot;  respectively. 

CiixKHiHHHtmmmHiumimHMmHmmmimtHmiimiH 

REAL  RFILT(1024),RP1,RP2,RP3 

INTEGER  FILE(7),SP,NS<2>, RET, NU«BU,LASTBYT, POINTS, BYTS 
LOGICAL  1  TEST , SET 
C 

C  Retrieve  conaand  line  file  and  verify  only  one. 

C 

CALL  CQHLN(RET,SP,FILE,SP,SP,NS,SP,5P,SP) 

IF  (RET.E0.1)  GO  TU  20 

CALL  ERROKPincorrect  conaand  line  syntax") 

C 

C  Verify  input  file  exists  and  retrieve  it's  contents. 

C 

20  CALL  STATUS(FILE,NUHBLK,LASTBYT> 

POINTS- (NUHBUI»128)t(LASTDTT/4) 

BTTSsPQINTSM 
CALL  F0PEN( 1 ,FILE) 

CALL  RDSEQ(1 ,RFILT,BYTS,1ER) 

IF  (IER.NE.l)  CALL  ERRQRC'RDSEQ  error") 

CALL  FCLOSE(l) 

C 

C  Deteraine  the  type  of  plot. 

C 


SET  =  I TE bT < MS ( 1 ) ,7 )  ;checK  for  I  stitch 

IF  (SET)  GO  TO  SO 

SET> ITEST(HS( 1 )  f  3)  ;checK  for  H  stitch 

IF  (SET)  GO  TO  30 

SET--ITEST(HS<1),4)  ;checK  for  L  stitch 

IF  (SET)  GO  TO  40 

CALL  ERROR ("invalid  cottand  line  stitch") 

C 

C  Plot  the  first  half  of  the  latitude  response. 

C 

30  P0IHTS=P0IHTS/2 
GO  TO  dO 
C 

C  Cotpute  log  Magnitude  response. 

C 

40  PO lNTS=P0INTS/2 
DO  16  1=1 /POINTS 
RFILT(I) : 10.«ALOG10(KFILT ( 1 ) ) 

Id  CONTINUE 
GO  TO  dO 
C 

C  Plot  itpulse  response  with  vertical  lines. 

C 

50  IF  (POINTS. GT. 512)  CALL  ERRUR( "itpu I se  response  too  long") 

CALL  CRPH2(FILE, 1,RF1LT,RP1, POINTS, 1,RP2,RP3,0> 

ACCEPT  gallon  user  to  position  cursor  for  typing 

ACCEPT  ;on  graph 

ACCEPT 
ACCEPT 
CO  TO  *0 
C 

C  Plot  Magnitude  and  log  Magnitude  response  Mith  stooth  line. 

C 

60  IF  (POINTS. NE. 512)  CALL  ERRQR( "frequency  response  not  1024  points") 
CALL  CRPH2 ( FILE,  1,RF1LT,RP1, POINTS, 0,RP2,RP3,0) 

ACCEPT 

ACCEPT 

ACCEPT 

ACCEPT 


TO  CALL  EXIT 
END 


or»r>  or»  n  n  n  o  ono 
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Title:  Header 
Author:  Lt  Allen 
Sate:  Dec  82 

Function: 

This  routine  prints  on  the  printer  a  header  specifying  an  Eclipse 
A/D/A  conversion  operation.  The  conversion  results  specified  can 
then  he  printed  beneath  the  header. 

Conpile  coeeand: 

FORTRAN  HEADER 

Consents: 

The  variables  that  are  passed  to  this  routine  have  the  folloiinq 


leaning, 

DEVICE 

21  for  A/D  or  23  fo  D/A 

SPEC1 

starting  channel  for  A/D  or  D/A 

SPEC2 

ending  channel  for  A/D  or  node  set  for  D/A 

IDATA2 

conversion  count 

IER 

DOITW  error  return 

10RBA 

the  operation's  10RBA  array 

CLOCK 

conversion  count 

SUBROUTINE  HEADER (DEVICE; SPEC  1 ,SPEC2,IDATA2,IER,I0RBA,CL0CK) 

INTEGER  DEVICE, SPEC1,SPEC2,IDATA2,IER,I0RBA( 16), CLOCK 

IF  (DEVICE. EQ. 21  .OR.  DEVICE. EQ. 23)  GO  TO  605 
CALL  ERROR!" improper  device  nuuber") 

605  CALL  FGDAY  (IHQN,  IDAY,  IYR) 

CALL  FGTIHE  (IHOUR,  ININ,  1SEC) 

WRITE  (12,10) 

10  FORNAT  (IX, "Eclipse  A/D/A  operation  ) 

WRITE  (12,115) 

WRITE  (12,11)  1H0N, IDAY, IYR 

11  FORNAT  (IX, "date:  " ,12,"/” ,12, V" ,12) 

WRITE  (12,12)  IHOUR, ININ 

12  FORNAT  (IX, "tine:  “,I2,"  :  ”,I2) 

WRITE  (12,115) 

WRITE  (12,1) 

IF  (CLOCK. BO. 1)  WRITE  (12,21) 
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IF  (CLOCK. EQ. 2)  WRITE  (12,24) 

IF  (CLOCK. EQ. 3)  WRITE  (12,23) 

IF  (CLOCK. EQ. 4)  WRITE  (12,22) 

WRITE  (12,3)  SPEC1 

IF  (DEVICE. EQ. 21)  WRITE(12,4)  SPEC2 

IF  (DEVICE. EQ. 23)  WRITE(12,a)  SPEC2 

WRITE  (12,5)  IDATA2 

WRITE  (12,6)  IER 

WRITE  (12,7) 

WRITE  (12,9)  ( IORBA( 1 ) ,1-1 ,16) 

1  FORMAT  (lX,“analog-to-digital  conversion") 

20  FORMAT  ( IX , “digital -to-anal oq  conversion") 

2  FORMAT  (IX, "Clock:  ",12) 

3  FORMAT  (IX, "First  channel:  ",12) 

4  FORMAT  (IX, "Last  channel:  ",I2) 

5  FORMAT  (IX, "Conversion  count:  ",15) 

A  FORMAT  (IX, “Mode:  “,I2> 

6  FORMAT  (IX, “DOIT  error:  “,I4) 

7  FORMAT  ( lX,“Iorba< 1-16)  (Octal  foroat):") 

9  FORMAT  ( IX ,  16( IX ,04) ) 

21  FORMAT  (IX, "pulse  clock") 

22  FORMAT  (1X,"DCH  clock") 

23  FORMAT  ( IX, "internal  clock") 

24  FORMAT  (IX, "external  clock") 

WRITE  (12,115) 

115  FORMAT  (IX) 


0* 


RETURM 

END 


nnn 


CHtHHHtHIKHitHHmiHtHHIHiHItHtmHOHmmtmHtUHII 

Title:  InPile 
Author:  Lt  Allen 
Date:  Dec  82 

C  Function: 

C  This  routine  reads  a  specified  section  of  a  disk  file  into  a  real 

C  data  array* 

C  Coapile  coaaand: 

C  FORTRAN  INFILE 

C  Contents: 

C  The  variables  that  are  passed  to  this  routine  have  the  folloting 


c 

aeaning, 

c 

FILENAH 

the  disk  filenaae  (in  S  foraat)  to  be 

read 

c 

STBLK 

the  nunber  of  the  disk  block  to  begin 

c 

reading  (the  first  block  of  a  file  is 

0) 

c 

NUNBLK 

the  nuaber  of  disk  blocks  to  read 

c 

ARRAY 

the  array  to  receive  data 

c 

LEN 

the  length  of  the  data  array 

SUBROUTINE  INF  1LE( FUENAH,STBLK  ,NUNBLK , ARRAY  ,LEN) 

INTEGER  FILENAIi(7)  f STBLK ,NUHBLX ,LEN 
REAL  ARRAY(LEN) 

CALL  0PEN(1,FILENA«,1,IER> 

IF  (1ER.NE.1)  WRITE!  10,1)  1ER,F1LENAH( 1 ) 

1  FORHATC' 

•  OPEN  error  ",U,"  aith  file‘,Sl3) 

CALL  RDBLKI 1  ,S7BLK  ,  ARRAY  ,NUHBLX  ,IER> 

IF  (IER.NE.l)  WRITE!  10,2)  IER ,FILENAH( 1 ) 

2  FORMAT  I " 

•RDBLK  error  ",16,"  aith  file  ”,S13> 

CALL  FCLOSE ( 1 ) 

RETURN 

END 

^••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••« 
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Title:  LenChc 
Author:  Lt  Allen 
Date:  Dec  62 

Function: 

This  routine  verifies  that  a  disk  file  fits  a  specified  einieue 
or  eaxieue  size.  If  the  disk  file  is  too  large  or  seal))  the 
prograe  is  halted  and  an  error  eessage  is  printed  on  the  console's 
C  screen.  The  unit  used  to  eeasure  the  file's  length  is  a  real 

C  nunher  eleeent,  ehich  requires  4  bytes  of  eeeory. 

C  Coepile  coeeand: 

C  FORTRAN  LENCHC 

C  Coeaents; 

C  The  variables  that  are  passed  to  this  routine  have  the  folloeing 


c 

aeaning, 

c 

FILENAN 

the  disk  filenaee  (in  S  foreat)  that  is 

c 

being  checked 

c 

NUMlLK 

the  nueber  of  the  last  disk  block  of  the 

c 

disk  file 

c 

LASTBYT 

the  nueber  of  the  last  byte  in  the  last 

c 

disk  block  of  the  file 

c 

NIN 

the  einieue  acceptable  nueber  of  real  eleeents 

c 

HAX 

the  aaxiaua  acceptable  nueber  of  real  eleeents 

C 


SUBROUTINE  LENCHC ( F1LENAH ,NUHBLX ,LASTBY7 ,NIN ,HAX) 

INTEGER  FILENAN(7),NUNBLK,LASTBYT,LEN,NAX,HIN 

LENs (NUNBLK*126) ♦( LASTBYT/4) 

IF  (LEN.LT.HINI  WRITE! 10 ,1 >  FILENAIU i )  ,H1N 
IF  <LEN.GT.nAX)  UR1TEC 10,2)  FlLENANt 1 )  ,MAX 
IF  <LEN.LT.NIN  .UR.  LEN.GT.HAX)  GO  TO  20 

1  FORHATt" 

•  File  “ ,  S 1 3 ,  ”  oust  contain  at  least  "/I6,"  real  eleeents.”) 

2  FORNAT ( “ 

•  File  *' / S 1 3 / "  cannot  contain  over  “,16,"  real  eleeents.") 
RETURN 

20  TYPE  " 

•prograe  aborted" 

CALL  EXIT 
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CHHmillHIimKimHtHHimHHHHHmiimHHIHIHil 

Title:  NeeScr 
Author:  Lt  Allen 
Sate:  Sec  62 

C  Function: 

C  This  routine  erases  the  screen  by  typing  24  blank  lines. 

C  Coepile  coieand: 

C  FORTRAN  NEUSCR 

SUBROUTINE  NEUSCR 

DO  10  1=1,24 
TTPE 

10  CONTINUE 

RETURN 

END 


o« 


l 
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Title:  Paper 
Author:  Lt  Allen 
Date:  Dec  62 

Function: 

This  routine  prints  sections  of  an  integer  data  array  on  the 
printer  in  512-aord  pages.  The  calling  prograa  specifies  all 
of  the  paraueters  required. 

This  routine  was  designed  for  printing  data  collected  eith  the 
Eclipse  A/D/A  device.  When  executing  the  real  nuaber  print 
option,  the  integer  aord  is  converted  to  the  real  nuaber 
equivalent  that  this  device  uses  to  store  data  saaples. 

C  Coapile  coaaand: 

C  FORTRAN  PAPER 


c 

c 

c 

Coaaents: 

The  variables  that  are  passed  to  this  routine  have  the  folloaing 
aeaning, 

c 

c 

IFOR 

display  foraat:  1  for  integer,  2  for  real  nuaber 
and  3  for  octal 

c 

ISTART 

the  starting  page 

c 

ISTOP 

the  ending  page 

c 

ARRAY 

the  data  array  to  be  shoan 

c 

LEN 

the  length  of  the  data  array 

^  a  E  1 

SUBROUTINE  PAPERUFQR, ISTART , ISTOP , ARRAY , LEN) 

INTEGER  IFOR 
REAL  TQPVQLT 

,  ISTART, ISTOP, LEN, ARRAY (LEN), IPRT, IPAGE 
,REALNUN 

T0PV0LT=5 .0 
1PRT=32 

;aagnitude  of  Eclipse  device  bi-polar  setting 

IPAGE=ISTART*1 
11=(1START-1)»512 
410  12=0 

1PAGE=IPAGE+1 

URITE  (12,4)  IPAGE , IPRT 

WRITE  (12,115) 

115  FORMAT  (IX) 

S  FORMAT  (IX, "page" ,13,"  of", 13) 

415  13=0 

420  14=0 
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625  11*11+1 

14*14+1 

REALNUH* FLOAT ( ARRAY  (ID ) /32766 . 0*T0PV0LT  {convert  to  real  nuotier 
IF  (1F0R.EQ.1)  WRITE  (12,9)  ARRAY (11) 

IF  (IF0R.EQ.2)  WRITE  (12,14)  REALNUH 
IF  (IF0R.EQ.3)  WRITE  (12,13)  ARRAY (11) 

14  FORHAT  (“+",1X,F7.4,Z) 

13  FORHAT  ( "♦" ,1X , 14,Z) 

9  FORHAT  ("+“,1X,06,Z) 

IF  (14. HE, 16)  CO  TO  625 
WRITE  (12,115) 

13*13+1 

IF  (13. RE. 16)  GO  TO  620 
WRITE  (12,115) 

WRITE  (12,115) 

12*12+1 

IF  (12. HE. 2)  GO  TO  615 

IF  ( IPAGE.NE. 1ST0P)  GO  TO  610 


RETURN 

END 


CHiHHfHiHmHHHmHtHmimHmmmiHmmmmiHiiiHii 

C  Title:  Plot 

C  Author:  Lt  Allen 

C  Date:  Dec  42 

C  Function: 

C  This  proqraa  alloes  the  user  to  set  the  plotting  options  in  the 

C  GRPH2  subroutine  to  plot  real  and  coaplex  data  files. 

C  Coepile  coaeand: 

C  FORTRAN  PLOT 

C  Load  coaaand: 

C  RLDR/P  PLOT  1NF1LE  STATUS  GRPH.LB  6FLIB4 

C  Enviroaent: 

C  This  is  a  Fortran  V  prograa  that  has  been  designed  to  run  froa  a 

C  Tektronix  graphics  teramal  on  a  aapped-RDOS  Eclipse  S/250 

t  ainicoaputer  systea. 

I'miiiHiiHmimiiimmiiiiiHiiimiimiiiioiiiioiOHimKHi 

REAL  RDATAt 512 ) , 1  DATA! 512) , TEMPI  1024 ) >SP1 /SP2 
INTEGER  FILENAH(7) ,FIRST ;NUHIf  jBLKS ,  BYTS ,  I  TYPE  >LEN  ,T0T))IKS  >PQ1HTS 
INTEGER  IPL0,1DEC,1SC,1QP,IAN,1MD 

CALL  ERS(l) 

CALL  FDELAY(IO) 

TYPE  "<CR> 

•This  prograa  plots  up  to  512  specified  points<CR> 

•  froa  file  on  the  tetronix  graphics  teramal. “ 

ISEC=2 
ISC=0 

30  ACCEPT  ”<CR> 

•Enter  filenaae  for  reading:” 

READ! 11,5)  FILENAHI1 ) 

4  5  FORMAT ( S13 ) 

IF  (ISEC.EQ.l)  GO  TO  50 

40  ACCEPT  "<CR> 

•Mhat  type  of  data  does  this  file  contain><CR) 
i  •  1:  real < CR > 

•  2:  coaplex(CR) 

•selection:” ,ITYP 

IF  (ITYP.EQ.l  .OR.  ITYP.EQ.2)  GO  TO  50 
WftlTE( 10,1) 

4  1  FORMAT  ("(CKHCRXCR) 

•Please  chose  only  froa  the  options  given.") 

GO  TO  40 
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50  CALL  STATUS! FI LENAM,  ELKS, BYTS) 

L tH= 126/lTtP 

TQTBLKSs4»ITYP 

IF  (BYTS. £0.512)  BLKS=BLKS*1 

60  WRITE!  10,2)  FILENAMl  1 )  ,BLKS, BUS 

2  FORMAT ( " (CR  > 

•File  ",S13,“  contains  ",13,"  diskblocks,  numbered  fro*  1  -  “,13,“.“) 
WRITE! 10 ,3)  LEM 

3  FORMAT ( “ ( CR ) 

•Each  disk  block  contains  “,I3,“  elements.") 

WRITE 1 10 ,4 )  TOTBLXS 

4  FORMAT ("(CR) 

•Up  to  ",I1,“  disk  blocks  can  be  plotted  in.“) 

ACCEPT  “(CR) 

•Please  specify, (CR) 

•  starting  block:”, FIRST 
IF  (ISEC.EQ.2)  ACCEPT  " 

»  number  of  blocks:” , NUMB 
CALL  ERS(l) 

CALL  FDELAY ( 10) 

IF  ((FIRST-1). CT.BLKS)  CO  TO  60 

IF  (NUHB.GT .TOTBLKS)  CO  TO  60 

IF  ( (MUHB+F1RST-2) .CT.BLKS)  GO  TO  60 

FIRST=FIRST- 1 

IF  (ITYP.EQ.l)  CO  TO  70 


CALL  INFILEIFILEHAH, FIRST, HUMS, TEMP, 1024) 
K--0 

DO  72  1=1,512 
K  =  K  ♦  1 

RDATA(  I )  =  TEflP ( K ) 

K  =  K  ♦  1 

1DATA(I)=TEMP(K) 

72  CONTINUE 

74  ACCEPT  "(CR) 

•Which  data  plot(s)  •ill  be  vie«ed,(CR) 

•  1:  real  data(CR) 

•  2:  imaginary  data(CR) 

•  3:  both(CR) 

•selection:", IPLO 

IF  ( IPLO.GE. 1  .AMD.  IPL0.LE.3)  CO  TO  60 
WRITE (10,1) 

CO  TO  74 


70  IF  (ISEC.EQ.2)  CALL  IHFILE(FILEHAH, FIRST  ,HUHB  ,01)  AT  A  ,512) 

IF  ( I5EC.EQ. 1 )  CALL  INF 1LE(F1LEKAH, FIRST ,NUN1,IDATA,512) 

I PLO  =  i 

IF  (1SEC.EQ.1)  1 PLO  =  3 
IF  ( ISEC . tQ . 1 )  GO  TO  60 

CHHtmHimmoHHiiHHHiNHimiiHHmmHHmoiiHmHiiiiii 

75  ACCEPT  "(CR> 

•Do  you  aant  to  place  a  second  plot(CR) 

•of  real  data  on  the  qraph?(CR> 

»  1:  yes(CK) 

•  2:  no<CR) 

•selection:" , ISEC 

IF  (ISEC.E0.1)  GO  TO  30 
IF  (ISEC.EQ.2)  GO  TO  60 
WRITE ( 10 , 1 ) 

GO  TO  75 


60  ACCEPT  "(CR) 

•bo  you  aant  to  set  the  scaling  liaits?(CR> 
»  1:  yes<CR) 

•  2:  no( CR ) 

•selection:  " , 10P 

IF  (I0P.EQ.1)  CO  TO  61 
IF  (I0P.EQ.2)  GO  TO  63 
WRITE  (10,1) 

GO  TO  60 

81  ACCEPT  " (CR > 

•Enter  the  aaxiaua;  ”,SP2 
ACCEPT  " 

•Enter  the  ainiaua:  ",SP1 
ISC*  1 


83  ACCEPT  "<CR> 

•bo  you  aant  to,(CR> 

»  1:  connect  with  vertical  lines(CK) 

•  2:  connect  aith  saooth  line(CR) 

•selection:  ",1AN 

IF  (IAN.EQ.1)  1110  =  1 
IF  (IAN.E0.2)  in0=0 
IF  (IAN.EQ.1  .OR.  IAN.EQ.2)  CO  TO  85 
WRITE  (10,1) 

GO  TO  83 


05  ACCEPT  "  ( CR  > 

•Enter  the  nuaber  of  points  to  plot:  POINTS 
TYPE  “ISC"  |1SC/“SP1“  |SP1  ,“SP2“  fSP2 
ACCEPT 

IF  (IPL0.EQ.1)  CALL  GRPH2(FILENAR/1 , RDATA, I DATA, POINTS ;IH0/SP1 ,  SP2,ISC) 
IE  (l£LQ>£Q*2)  CALL  CRPH2(FILENAH|1 /I0ATA;RDATA|P0INTS|1NU|SP1 /SP2|ISC) 
IF  UFbli:  Eo:  3>  CSCE  CRfH2(FILENAn, 2, IDATA,RDATA, POINTS, IN0,SP1,SP2, ISC) 
ISC  =  0 


ACCEPT 
ACCEPT 
ACCEPT 
ACCEPT 
CALL  ERS(l) 

CALL  F DELAY (10) 

90  ACCEPT  “(CR) 

•Do  you  want  to,<CR> 

•  1:  plot  froa  another  fi)e(CR) 

•  2:  plot  froa  current  tile(CR) 

•  3:  exi t<CR) 

•selection:", IDEC 

I  SEC  -  2 

IF  (IDEC.E0.1)  GO  TO  30 
IF  ( IDEC.EQ.2)  GO  TO  60 
IF  (IDEC.EQ.3)  GO  TO  100 
UR1TE ( 10 , 1 ) 

CO  TO  90 


100  CALL  EXIT 
END 


non  n  n  n  n  n  n  n  n 


Title:  RdByts 
Author:  Lt  Allen 
Dote:  Bee  82 

Function: 

This  routine  reads  a  section  of  data  fro*  disk  file  into  an 
integer  data  array> 

Conpiie  coeeand: 

FORTRAN  RDBYTS 

Coneents: 

The  variables  that  are  passed  to  this  routine  have  tha  fol losing 
eeaning, 

C  FILE  the  disk  filenaee  (in  S  foreat)  to  be  read 


C  BYTS  the  nunber  of  byts  to  be  read 

C  ARRAY  the  array  to  receive  data 

C  LEN  the  length  of  the  data  array 

CHiiiiHiiiHmHKiimimimiimHHimiimKmHii 

SUBROUTINE  ROB^TSiFlLE ,BYTS , ARRAY ,LEN) 

INTEGER  FILE<7), BYTS, LEN 
INTEGER  ARRAY (LEN) 

CALL  QPEN(1,FILE,1,IER) 

IF  (IER.NE.l)  WRITE ( 10 , 1 )  1ER,F1LE( 1 ) 

1  FORMAT!" 

•OPEN  error  ",18,"  eith  file  ",S13> 

CALL  RDSEQ( 1  /  ARRAY ,BYTS,IER) 

IF  (IER.NE.l)  WRITE (10/2)  IER,FILE(1) 

2  F0RHAT ( “ 

•RBSEQ  error  eith  file  ",S13> 

CALL  FCLOSE(l) 

RETURN 

END 

CHiHHiimHmHmmmmmiHimmiHiiiimmHi 


229 
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n  n  n  n  o  r>  o 


Title:  RedBuf 
Author:  Lt  Allen 
Date:  Dec  82 

Function: 

This  routine  reads  a  section  of  disk  file  into  an  integer  data 
array.  The  file  and  data  section  are  specified  interactively 
by  the  user. 

C  Coipile  coooand: 

C  FORTRAN  REDBUF 

C  Coaaents: 

C  The  variables  ARRAY  and  LEN  that  are  passed  to  this  routine  are 

C  the  data  array  and  it's  length;  respectively.  On  return;  the  array 

C  contains  the  user  data. 


SUBROUTINE  REDBUF(ARRAY ,LEN) 

INTECER  LEN;ARRAY (LEN)  ;F1LENAH(7 ) , IFIRST , I NUN, I  DEC 

500  TYPE 

ACCEPT  " 

•Enter  the  filenaae  for  reading:” 

READ  (11,2)  FILENAN(l) 

2  FORNAT  (S13) 

CALL  OPEN  (1,FILENAH,2,1ER) 

IF  (IER.EQ.13)  GO  TO  510 
IF  (IER.NE.l)  TYPE  "OPEN  error”, 1ER 

ACCEPT  “(CR> 

•  Enter  the  starting  block  for  reading, < CR > 

»  (the  first  block  of  a  file  is  1):”, IFIRST 
1FIRSTsIFIRST-1 

ACCEPT  "(CR) 

•Enter  the  nuaber  of  blocks  for  reading:", INUH 

CALL  RD8LKU, IFIRST,  ARRAY, INUH, 1ER) 

IF  (IER.NE.l)  TYPE  "RDBLX  error”, IER 
IF  (IER.NE.l)  GO  TO  520 
CALL  RESET 
GO  TO  100 

510  TYPE  "(CR) 

•This  file  does  not  exist.” 

CO  TO  520 


2  30 


520  CALL  RESET 


ACCEPT  “<CR> 

•Do  you  »ant  to,<CR> 

•  1:  try  another  filet CR  > 

•  2:  return  to  the  lain  eenu(CR) 

•selection:"* IDEC 

IF  UDEC.EQ.l)  CO  TO  500 
IF  (IDEC.EQ.2)  CO  TO  100 
WRITE  (10,1) 

1  FORMAT ( “ ( CR  > ( CR  > ( CR> 

•Please  naKe  selections  only  froe  the  given  options.") 
GO  TO  520 

100  RETURN 
END 


231 


n  n  n  n  oooo  r>r>o 


Title:  Seelt 
Author:  Lt  Allen 
Sate:  Dec  A2 

Function: 

This  routine  displays  sections  of  an  integer  data  array  on  the 
screen  in  126-oord  paqes.  The  calling  prograe  specifies  ail  the 
paraaeters  required, 

This  routine  nas  designed  for  displaying  data  collected  eith  the 
Eclipse  A/D/A  device.  When  executing  the  real  nuaber  display 
option>  the  integer  eord  is  converted  to  the  real  nuaber 
equivalent  that  this  device  uses  to  store  data  saaples, 

C  Coapile  coaaand: 

C  FORTRAN  SEEIT 

C  Coaaents: 

C  The  variables  that  are  passed  to  this  routine  have  the  folloaing 


c 

leaning, 

c 

IFOR 

display  foraat:  1  for  integer 

c 

and  3  for  octal 

c 

1START 

the  starting  page 

c 

ISTOP 

the  ending  page 

c 

ARRAY 

the  data  array  to  be  shorn 

c 

LEN 

the  length  of  the  data  array 

SUBROUTINE  SEEITI IFOR , ISTARI  ,ISTQP , ARRAY ,LEN) 

INTEGER  IF0R,ISTART)1STQP;LEN)ARRAY(LEN) ) I  TOT, I  PAGE 
REAL  REALNUtt iTOPVQLT 

IT0T--128 

T0PV0LTs5.  magnitude  of  Eclipse  device  bi-polar  setting 
505  TYPE  "<CRMCR> 

•Press  carriage  return  to  begin  and<CR> 

»to  continue  eith  the  next  paqe,<CR>" 

ACCEPT 


1PAGE=ISTART*1 
I1*(ISTART-1)«126 
510  1 2 3  0 

IPAGE- 1PAGE+ 1 

TYPE  ”(CR)  page", IPAGE,1 


of"  ,IT0T ,"(CR>“ 


515  13=0 

520  14=0 
525  11=11+1 
14=14+1 

REALNUH= FLOAT (ARRAY (ID  )/327A0»0*TQPVQLT  {convert  to  real  nueOer 

IF  (IF0R.EQ.1)  WRITE  (10,110)  ARRAY (11) 

IF  (IF0R.E0.2)  WRITE  (10,111)  REALNUH 
IF  (1F0R.EQ.3)  WRITE  (10,112)  ARRAY (ID 

110  FORMAT  ( IX ,06 ,Z ) 

111  FORMAT  ( 1X,F7 ,4,2) 

112  FORMAT  (1X,U,Z) 

IF  (14.NE.6)  GO  TO  525 
WRITE  (10,115) 

115  FORMAT  (IX) 

13=13+1 

IF  (13.NE.A)  GO  TO  520 
WRITE  (10,115) 

WRITE  (10,115) 

12=12+1 

IF  (12.NE.2)  GO  TO  515 
ACCEPT 

IF  (IPACE.NE.ISTOP)  GO  TO  510 


RETURN 

END 


O  U  U  U  U  U  CJ 


Title:  SetUp 
Author:  It  Allen 
Date:  Dec  82 

Function: 

This  is  a  special  purpose  routine  used  by  prograa  INDtCI  and 
OUTDIGI.  It  alloes  the  user  to  select  the  type  of  foriat  and 
section  of  data  buffer  for  printing/displaying. 

C  Coapile  coaaand: 

C  FORTRAN  SETUP 

C  Coaaents: 

C  The  variable  IQP  that  is  passed  to  this  routine  has  the  value  2; 

C  for  data  buffer  display;  or  3;  for  data  buffer  print* 

C  The  other  variable  values  are  returned  to  the  calling  prograa 

C  as  set  by  the  user* 

CoHiHHHiimmoimimmmiHmoifHHmHHiHHHmHHH 

SUBROUTINE  SETUP! 1 FDR / 1  OP ; 1ST ART  # I  STOP) 

230  ACCEPT  “  (CR> 

aMhat  type  of  foraat?<CR> 

0  4  »  1:  tio's  coapleaent(CR) 

a  2:  real  nuaber(CR) 

«  3:  integer  nuaber(CR> 

ase)ection:H;IFOR 


IF 

(IF0R.LT.1) 

GO 

TO 

230 

IF 

(IFQR.CT.3) 

GQ 

TO 

230 

231 

IF 

(I0P.EQ.2) 

GO 

TO 

225 

IF 

( 10P.EQ.3) 

GO 

TO 

235 

225 

TYPE  “<CR> 

•There  are  128  pages  of  data;  nuabered  1  through  128;<CR> 
I  aaith  each  page  containing  128  saaples*" 

GO  TO  250 

235  TYPE  "<CR> 

•There  are  32  pages  of  data;  nuabered  1  through  32 , < CR > 
aaith  each  page  containing  512  saaples." 

I  250  ACCEPT  ”(CR) 

alihat  page  ail)  be  first?  ";1START 
ACCEPT  " 

alihat  page  ail  I  be  last?  ",IST0P 

IF  (ISTARY.LT. 1)  CO  TO  231 
A  I  TEST  =  ((-96aI OP  1*320) 

IF  UST0P.GT.1TEST)  CO  TO  231 
IF  (ISTART.GT.ISTOP)  GO  TO  231 

2  3*1 


« 


RETURN 

END 


r:  r>  o  r?  or>  o  r>  n  n  n  n  r>or> 
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Title:  Sort2 
Author:  Lt  A) len 
Date:  Dec  02 

Function: 

This  routine  receives  teo  filenaoes  and  their  corresponding  soitch 
arrays,  it  arranges  the  filenaoes  and  soitch  arrays  in  order  of 
position  according  to  specified  soitch  values  also  passed  to  it. 

Coopile  coooand: 

FORTRAN  S0RT2 

Coooand  line: 

CALL  S0RT2(X,Y,FILE1,FILE2,F1,F2> 

■here , 

X  and  Y  are  nuobers  corresponding  to  soitch  options  set  in 
FI  and  F2.  The  nuober  is  the  position  of  the  letter  in  the 
alphabet,  that  is  A=1...Z=26. 

C  FILE1/F1  and  F1LE2/F2  are  filenaoes  and  their  corresponding 

C  soitch  arrays  in  the  foroat  returned  by  the  COHARC  cal)  (this 

C  is  S  foroat  for  the  filenaoes). 

C  On  return,  the  file  oith  soitch  X  set  oil  I  occupy  the  position 

C  of  FILE1/F1  and  the  file  oith  soitch  Y  set  oill  occupy  the 

C  position  of  FILE2/F2. 

C  Consents: 

C  FI  and  F2  say  also  contain  other  soitch  values  besides  X  and  Y, 

C  and  these  values  oill  not  be  altered. 

C  If  one  or  bath  of  the  files  do  not  contain  either  of  the  soitch 

C  values  specified,  the  prograo  is  halted  oith  an  error  oessage. 

C  If  either  file  contains  both  soitch  values  X  and  Y,  the  prograo 

C  is  halted  oith  an  error  oessage. 

CmiHiiiiKHiHHmHmHimmmiHHmiHiHmHMHmiiHmn 


SUBROUTINE  S0RT2(X ,Y ,FILE1  ,F1LE2 ,Fi ,F2> 

INTEGER  X,Y,F1LE1 (7) , F I LE2 ( 7 ) ,F1(2) ,F2<2) ,TENP(7) ,BIT 

L0C1CAL  1TEST ,CASE1 ,CASE2 
C 

C  The  first  eleoent  of  the  soitch  array  contains  soitches  A-P. 

C  The  second  eleoent  of  the  soitch  array  contains  soitches  U*Z. 
C 

1  =  0 

IF  (X.GT.l  .AND.  X.LE.16)  1=1  {determine  ohich  soitch  array 

:k» 


IF  (X.GT.16  • AND.  X.LE.26)  1*2  ;eleaent  aould  contain  stitch  X 
IF  (I.EQ.O)  GO  TO  yO 
C 

C  The  fol toning  transf oraation  gives  the  bit  position  of  a 
C  stitch  in  the  stitch  array  eleaent. 

C 

MT  =  (-1*X)*(16«I) 

CASE1 *  I T EST ( FI ( I ) , BIT)  >test  both  stitch  arrays 

CASE2* 1TEST < F 2 ( 1 ) ,  BIT )  {for  stitch  X 

IF  ( CASE  1 .AND. . NQT.CASE2)  GO  TO  60  ;saitch  X  is  in  the  first  file 

;and  not  second  file 

IF  <CASE2<AHD< .MOT « CASED  CO  TO  50  ;saitch  X  is  in  the  second  file 

;and  not  first  file;  so  the 
;file  positions  are  stitched 

co  to  yo 

50  DU  15  1=1,7 

TENP( I )  =  F1LE2  < 1 ) 

FILE2(  l )  *FILE1 ( I ) 

FILE1 ( I )  =  TEMP  < I ) 

15  CONTINUE 

DO  16  1=1,2 
TEHP(I) =F2< I > 

F2< I )  *F1 ( I ) 

F 1 4 1 >  =  TEHP ( I > 

16  CONTINUE 

60  1=0 

IF  (Y.CT.l  .AND.  Y.LE.I6)  1*1  ;deteraine  thich  stitch  array 
IF  (Y.CT.16  .AND.  Y.LE.26)  1=2  ;eleaent  tould  contain  stitch  Y 
IF  (I.EQ.O)  GO  TO  VO 

61T=(-1»Y)*(16«I) 

CASE1  =  I  TEST (FI ( I ) ,BIT)  ;test  both  stitch  arrays 
CASE2= 1TEST ( F2 ( I ) , BIT )  ?for  stitch  Y 

IF  (CASE2.AND. .N0T.CASE1 )  GO  TO  100  ;saitch  Y  is  in  second  file 

;and  not  first  file 

90  TYPE  ,,<CIU 

*The  files  included  in  the  cotaand  line  do  not  have(CR) 

•valid  stitches.  Consult  proqraa  docuaentation  for(CR) 

•the  correct  syntax." 

STOP 


100  RETURN 
END 


4 


c 
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ClIHIHHilKlilimtimHIHHOHimiHHHtllHmHIimmilitll 
C  Title:  Sort3 

C  Author:  Lt  Allen 

C  Date:  Dec  82 

C  Function:  This  subroutine  arranges  three  files  and  their  seitches 
C  in  a  specified  order  of  position* 

C  Coepile  coeeand: 

C  FORTRAN  S0RT3 

C  Coeeand  line: 

C  CALL  S0RT3(X,Y,Z,FILEI,F1LE2,FILE3,F1,F2,F3> 

C  ehere, 

C  X , Y  and  Z  are  nuebers  corresponding  to  snitch  options  set  in 

C  snitch  arrays  F1,F2  and  F3*  The  nueber  is  the  position  of 

C  the  letter  in  the  alphabet/  that  is  A=1...Z=28, 

C  FILE1/F1  /F1LE2/F2  and  F1LE3/F3  are  filenane  arrays  and 

C  their  corresponding  seitch  arrays  in  the  fornat  returned  by 

C  the  CONARC  call  (this  is  S  fornat  far  the  filenanesl* 

C  On  return,  the  file  eith  seitch  X  set  eill  occupy  the  position 

C  of  FILE1/F1,  the  file  mth  seitch  Y  set  mil  occupy  the 

C  position  of  F I LE2/F2  and  the  file  eith  seitch  Z  set  eill 

C  occupy  the  position  of  FILE3/F3. 

C  Coeeents: 

C  Fl,F2  and  F3  eay  also  contain  other  seitch  values  besides  X,Y 

C  and  Z,  and  these  values  eill  not  be  altered. 

C  If  one  or  nore  of  the  files  do  not  contain  any  of  the  seitch 

C  values  or  if  any  of  the  files  contains  eore  than  one  of  the 

C  seitch  values,  the  pragrae  is  halted  eith  an  error  eessage. 


SUbkOUTINE  S0RT3(X,Y ,Z,FILEI,FILE2,FILE3,F1 ,F2,F3) 

INTEGER  X,Y,Z, FILE  1(7) ,F1LE2(7) ,FILE3(7) ,F1(2),F2(2),F3(2) 
INTEGER  TEHP(7 )  ,BIT 

LOCICAL  I  TEST /CASE  I / CASE  2 ,  CASE 3 
C 

C  The  first  eleeent  of  the  seitch  array  contains  seitches  A-P, 

C  The  second  eleeent  of  the  snitch  array  contains  seitches  Q-Z. 

C 

1  =  0 

IF  (X.GE.l  .AND.  X.LE.16)  1=1  ;detereine  ehich  seitch  array 
IF  (X.CT.U  .AND.  X.LE.26)  1=2  {eleeent  eould  contain  snitch  X 
IF  (I.EQ.O)  CO  TO  V5 
C 

A  SH 


n  n  n 


C  The  fol losing  transformation  gives  the  bit  position  of  a  soitch 
C  array  elenent. 

C 

B1T*(-1»XD(16«I> 

CASE1*1TEST<F1U>,BIT> 

CASE2* ITESTI F2I I )  ,BIT) 

CASE35 ITEST ( F3< 1 > ,BIT) 

C 

C  First/  check  if  seitch  X  is  in  the  first  file  and  not  the  other  tno. 

C 

IF  ( ( CASE  1 • AND • .N0T.CASE2)  .AMD.  .HOT. CASES)  CO  TO  70 
C 

C  Second/  check  if  snitch  X  is  in  the  second  file  and  not  the  other  tno. 

c 

IF  ((CASE2. AND. .NOT. CASED  .AND.  .NQT.CASE3)  CO  TO  SO 
C 

C  Third/  check  if  snitch  X  is  in  the  third  file  and  not  the  other  tno. 

C 

IF  ((CASE3. AND. .NOT. CASED  .AND.  .NQT.CASE2)  GO  TO  60 
CO  TO  95 
C 

C  Place  the  file  nith  snitch  X  in  the  first  position. 

C 

50  DO  15  1*1,7 

TEMP(1)=F1LE2(1) 

FILE2( I ) =FILE1 1 1) 

FILElllDTEMPID 

15  CONTINUE 

DO  16  1=1,2 
TEMPI  I ) *F2( I) 

F2(1)=F1(I) 

FI  (I ) -TEMPI  1 1 

16  CONTINUE 
GO  TO  70 

60  DO  17  1*1,7 

TEMPI  I ) -FILE31 1 ) 

FILE3I 1 ) -FILEl ( 1 ) 

FILE1 ( I) -TEMPI D 

17  CONTINUE 

DO  IB  1=1,2 
TEMPI D -F3( I) 

F3I I)  =  F1 1 1) 

FlID-TEMPU) 

IB  CONTINUE 

70  1-0 

IF  I Y . C E « 1  .AND.  Y.LE.16)  1*1  {determine  nhich  snitch  array 
IF  (Y.GT.16  .AND.  Y.LE.26)  1=2  ;eleeent  mould  contain  snitch  Y 
IF  I I.EQ.O)  GQ  TO  95 

Find  snitch  Y's  hit  position. 

BIT* I  - l»Y )♦ 1 16*1 ) 

.*  I1' 


i 


o  o  r? 


CASEl 3 1TCST ( FI < 1 ) ,B1T) 

CASE2= ITESTIF2I I ) ,B1T) 

CASE3*1TESTIF3U),B1T> 

C 

C  First,  checK  if  saitch  ¥  is  in  the  second  file  and  not  the  other  tao. 

C 

IF  IICASE2.AND..N0T.CASE1)  .AND.  .N0T.CASE3)  CO  TO  90 

Second,  check  if  saitch  ¥  is  in  the  third  file  and  not  the  other  tao. 

IF  ( (CASE3.AND. . N0T.CASE2)  .AND.  .NOT. CASED  CO  TO  AO 
CO  TO  95 
C 

C  Place  the  file  aith  saitch  ¥  in  the  second  position. 

C 

AO  DO  19  1=1,7 

TEMPI  I >  =  F I LE3 ( I ) 

FILE3I 1) =FILE2( 1 ) 

FILE21 1 ) 'TEMPI  I ) 

19  CONTINUE 

DO  20  1-1,2 
TEHPt I ) =  F  3 1 1 ) 

F3IIDF2U) 

F2(D  =  TEHP(I) 

20  CONTINUE 

90  1  =  0 

0«  IF  IZ.GE.l  .AND.  Z.LE.ID  1-1  ^deternine  ahich  saitch  array 

V  IF  (Z.CT.16  .AND.  Z.LE.2A)  1=2  ;ei?aent  aould  contain  saitch  Z 

IF  II.EQ.O)  GO  TO  95 
C 

C  Find  saitch  Z's  hit  position. 

C 

BIT= ( - 1*Z )+( lo*I ) 

CASE1=ITEST(F1I1) , k 1 T ) 

CASE2=ITEST(F2(I) ,BIT) 

C ASE3  =  I  TEST  I F3  < 1 ) , B I T ) 

C 

C  Finally,  check  if  saitch  Z  is  in  the  third  file  and  not  the  other  tao. 
C 

IF  (ICASE3, AND. .NOT. CASED  .AND.  .N0T.CASE2)  GO  TO  100 
95  TYPE  "<CR> 

•The  files  included  in  the  coaaand  line  do  not  havelCR) 

•valid  saitches.  Consult  proqraa  docuaentation  forICR) 

•the  correct  syntax.” 

STOP 

100  RETURN 
END 


N 
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c 

c 

c 
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c 

c 

c 

c 

c 

c 

c 

c 
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Title:  Status 

Author:  Lt  Allen 

Date:  Dec  62 

Function: 

This  routine  returns  the  nueber  of  the  last  disK  blocK  and  the 

nueber  of  bytes  in  the  last  disK  block  of  a  specified  disk  file. 

Coupile  coeeand: 

FORTRAN  STATUS 

Coeeents : 

The  variables  that  are  passed  to  this  routine  have  the  fol toning 

■  eaninq , 

FILENArt  the  disk  filename  (in  S  fornat)  to  be 

checked 

NUHBLX  returns  the  nueber  of  the  last  disk  block 

in  the  file,  which  is  the  nueber  of  disk 
blocks  einus  one 

LASTBYT  returns  the  nueber  of  bytes  that  are  in 

the  last  block  of  the  file 


SUBROUTINE  STATUS< FiLENAH,NUHBU, LASTBYT) 

1NTECER  F1LENAIK 7 ),ISTAT< 18), NUHBLX, LASTBYT 

CALL  STAT(FlLENAW,lSTAT,iER) 

IF  (1ER.EQ.13)  CO  TO  20 

IF  (1ER.NE.1)  UR1TE(10,1)  I ER ^ F I LENAR < 1 ) 

1  FGRflATC 

•STAT  error  2,"  with  file  ",S13) 
NUHBLK-ISTAT(V) 

LASTBYT- 1STAT ( 10) 

RETURN 


20  UR1TE(  10,2)  FILENAHU) 

2  FORMAT ( " 

•  File  “,S13,"  does  not  exist. (CR> 
•prograe  aborted") 

CALL  EXIT 
END 


O' 
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C  Title:  ToFile 

C  Author:  It  Allen 

C  Sate:  Sec  B2 

C  Function: 

C  This  routine  erites  a  real  data  array  to  disk  file.  It  first 

C  deletes/creates  the  file,  so  that  the  file  sill  only  contain 

C  the  data  passed.  The  calling  prograa  should  verify  that  it  it 

C  agreeable  to  delete  any  existing  file  before  calling  this 

C  routine. 

C  Coapile  coaaand: 

C  FORTRAN  TOFILE 

C  Coaaents: 

C  The  variables  that  are  passed  to  this  routine  have  the  fol losing 

C  aeaning, 

C  FILENAH  the  disk  filenaae  (in  S  foraatl  to  be 

C  sntten  to;  it  sill  be  created  as  a 

C  randoa  file 

C  ARRAY  the  data  array  to  be  aritten  to  file 

C  LEN  the  length  of  the  data  array 

SUBROUTINE  TUFILE( FILENAH, ARRAT , LEN) 

INTEGER  F1LENAN(7),LEN,BUS 
REAL  ARRAY(LEN) 

BLKS:INT(LEN/12ft) 

CALL  DFILU(FILENAH,IER) 

CALL  CFIL«(FILENAH,2,1ER) 

IF  (IER.NE.ll  WRITE(10,11  KER,FILENAN(1) 

1  FORMAT <" 

•  CF1LM  error  ",I2,"  aith  file  ”,S13) 

CALL  0PEN(1, FILENAH, 3, 1ER) 

IF  (IER.NE.ll  NRITE(10,2>  IER,FILENAH(1) 

2  FORMAT ( “ 

•OPEN  error  M,I2,"  aith  file  ”,S13) 

CALL  UR8LK(1,0, ARRAY, BUSIER) 

IF  (IER.NE.ll  NRITE( 10 ,3)  IER,FILENAR( 1 1 

3  FORMAT (" 

•URBLK  error  ",12,"  aith  file  ",8131 
CALL  FCLDSEill 
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RETURN 

END 
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Tit)*:  Uarnng 
Author:  Lt  A) len 
Date:  Dec  62 

C  Function: 

C  This  routine  prints  Eclipse  A/D/A  device  earning  Messages  to  the 

C  screen  explaining  to  the  user  ehat  to  do  (or  various  error 

C  conditions*  It  should  he  placed  in  an  A/D/A  progran  just  before 

C  the  conversion  operation  is  perforaed. 

C  Compile  conaand: 

C  FORTRAN  UARNNG 

C  Coeaents: 

C  The  clock  that  has  been  chosen  for  the  conversion  operation  is 

C  sent  to  the  routine  in  variable  CLOCK* 

CMHIlimimHIimHHmmHimHmilllHHHHIiHHIHIHIOHI 


SUBROUTINE  UARNNG (CLOCK) 

INTECER  CLOCK 
TYPE  "<CR> 

•The  conversion  operation  can  be  safely  aborted  at  this(CR) 

•tine  by  typing  CTRL-A.” 

TYPE  ” < CR > 

•After  the  conversion  operation  has  been  initiated,  aait  an(CR) 
•appropriate  aaount  of  tine  before  considering  to  abort  an  operation(CR) 
•ehich  ail)  not  return.  The  only  nay  to  abort  a  conversion(CR) 

•operation  that  ail)  not  return  is  by  typing  CTRL-A*  Hoaever,(CR) 

•this  aay  result  in  crashing  the  systea.” 

IF  (CLOCK. EQ.60000K)  TYPE  "<CR> 

•If  the  conversion  operation  does  not  return  in  an  appropnate(CR) 
•aaount  of  tiae,  verify  that  the  external  clock  is  properly(CR) 
•connected.  The  dock  can  be  reconnected  once  the  conversion(CR) 
•operation  begins.” 

TYPE  "(CR) 

•Press  carnage  return  to  begin  the  conversion  operation.” 


RETURN 

END 
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Title:  UrtBuf 
Author:  Lt  Allen 
Date:  Dec  62 

Function: 

This  is  a  special  purpose  routine  used  by  prograa  INDIGI  and 
0UTD1GI.  It  alloas  the  user  to  arite  specified  sections  of  the 
data  buffer  to  a  disk  filet 

Coepile  coeeand: 

FORTRAN  URTBUF 

Coeeents: 

The  variables  ARRAY  and  LEN  that  are  passed  to  this  routine  are 
the  data  buffer  and  it's  length,  respectively. 


C 


SUBROUTINE  URTBUF! ARRAY, LEN) 

INTEGER  LEN,lr:RAY(LEN)  ,FILENAH(7> 

245  TYPE  “ (CR > 

•There  are  64  disc  blocks  in  the  data  buffer,  nuabered  1(CR> 
•through  64,  eith  each  block  containing  256  saaples." 

ACCEPT  “ <CR> 

•  Uhat  block  ail)  be  first?  **,ISTART 
ACCEPT  " 

•  Uhat  block  ail  I  be  last?  ", ISTOP 

IF  (ISTART.LT. 1)  GO  TO  245 
IF  (IST0P.GT.64)  GO  TO  245 
IF  ( ISTARTiCT • ISTOP)  GO  TO  245 
ISTART=ISTART-1 

255  ACCEPT  “ 

•Enter  the  filenaae  for  ariting:" 

READ  (11,15)  FILENAH(l) 

15  F0RHAT  4  S 1 3  > 

260  CALL  CFILU  (FI LENAH , 2 , 1 ER ) 

IF  (IER.EQ.12)  GO  TO  265 

IF  (IER.NE.l)  TYPE  “CFILW  error  ",IER,”  aith  your  file" 
CALL  OPEN  ( 1  ,FILENAN ,2,IER) 

IF  (IER.NE.l)  TYPE  "OPEN  error  M,IER,M  aith  your  file" 

CALL  URBLXt 1,1START, ARRAY, ISTOP, IER) 

IF  (IER.NE.l)  TYPE  "URBLK  error  ",1ER,"  aith  your  file" 

CALL  CLOSE  (1,IER> 

IF  (IER.NE.l)  TYPE  "CLOSE  error  ”,IER,*  aith  your  file” 

GO  TO  260 


265  ACCEPT  “(CR> 

•This  file  already  exists.  <CRXCR> 

•Do  you  lant  to,(CR> 

»  1;  delete  the  current  fi)e<CR> 

*  2:  try  another  file(CR) 

•selection:", 1DEL 

IF  (IDEL.EQ.l)  CO  TO  270 
IF  <10EL.E0.2I  CO  TO  255 
WRITE  (10,1) 

1  FORNAT  r<CRXCRXCR> 

•Please  sake  selections  only  Iron  the  given  options.”) 

CO  TO  265 

270  CALL  DFILN  <FIL£NAH,IER) 

IF  (1ER.NE.1)  TYPE  "0F1LW  error  “,IER,“  eith  your  file" 
CO  TO  260 

260  RETURN 
ENO 
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